Код презентации скопируйте его
Оператор цикла с предпроверкой условия: while … do … Оператор while … do … применяется в тех случаях, когда количество повторения действий в цикле заранее не известно и зависит от выполнения какого-либо условия. Общий вид оператора while … do … Для завершения цикла необходимо, чтобы оператор или список операторов влияли на значение выражения условие. while условие do оператор; while условие do begin список операторов; end;
Пример: Найти максимальное из натуральных чисел, не превышающих 5000, которое нацело делится на 39. Program Demo1; uses CRT; var a : integer; begin clrscr; a:= 5000; while a mod 39 0 do a:=a-1; write (‘ Искомое число = ’, a : 5); readkey end.