Найти максимальное натуральное число меньше 5000, которое делится нацело на 39.

Var a,b:integer;
begin
for a:=1 to 4999 do
begin
if (a mod 39=0) then b:=a;
end;
writeln(b);
end.
ответ:Число 4992