Дано двузначное число. Определить:превышает ли сумма его цифр само число; является ли сумма его цифр двузначным числом;оканчивается ли введённое число цифрой 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.