Среди трехзначных чисел найдите те ,сумма первой и последней цифр которого равна 7. паскаль

Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.