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

Баз всяких циклов оно решается, ответ 4992.

program z1;var i,m:integer;beginm:=0;for i:=39 to 5000 doif (i mod 39=0)and(m<i) thenm:=i;writeln(m);end.