Program If_10-

var a,b:integer-

Begin

writeln (‘Введите число’)-

readln (b)-

a:=b mod 10-

if (a=7) then writeln (‘Число оканчивается на — 7’) else writeln (‘Число не оканчивается 7’)-

Readln-

end.