Сумма двух заключительных цифр данного трехзначного числа N меньше данного К,

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