Дано двузначное число. Определить:превышает ли сумма его цифр само число; является ли сумма его цифр двузначным числом;оканчивается ли введённое число цифрой 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 (sif a mod 10=5 then writeln (okancivaetsia na 5) else writeln(ne okancivaetsia na 5);
readln;
end.