Написать программу на паскале.надо чтобы программа определяла что введенное число оканчивается на 7

Илья, попробуйте этот вариант
var a:integer;
begin
repeat
  readln(a);
until (a - (a div 10)*10) = 7;
writeln(a);
end.