Сумма двух последних цифр заданного трехзначного числа N меньше заданного К, а первая цифра больше 5. (программа Паскаль)

Question

Сумма двух последних цифр заданного трехзначного числа N меньше заданного К, а первая цифра больше 5.

Answer 1

var n,k:integer;
     f:boolean;
begin
repeat
writeln('Введите трехзначное число:');
read(n);
n:=abs(n); //число может быть и отрицательным
until (n>=100)and(n<1000);
write('k=');
read(k);
f:=(n mod 10+(n div 10 mod 10)<k)and(n div 100>5);
write(f);
end