Пожалуйста посчитайте задачу по информатике в Паскалях.Найти максимальное из натуральных чисе, не превышающих 5000, которое нацело делится на 39

1234567891011program chisla;uses crt;var i,max:integer;beginclrscr;max:=1;for i:=1 to 5000 doif (i>max) and (i mod 39=0) then max:=i;write('max= ',max);readln;end.