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

 Var a,s,x,y:integer;beginwriteln ('введи двузначное число');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.