Дано двузначное число. определить: превышает ли сумма его цифр само число; является ли сумма его цифр двузначным числом; оканчивается ли введённое число цифрой 5? заранее ))

 Var a,s,x,y:integer;
begin
writeln ('введи двузначное число');
readln (a);
x:=a div 10;
y:=a mod 10;

s:=x+y;
if (s>9 ) and (s<100) then writeln('summa dvuznacina') else writeln('summa nedvuznacina');
if a mod 10=5 then writeln ('okancivaetsia na 5') else writeln('ne okancivaetsia na 5');
readln;
end.