Найдите наибольший общий делитель двух чисел. Или для цикла (пока), или для цикла (до) в паскале.

program zz1;

var a, b, nod:integer; / /задаем переменные

begin

write ('введите первое число '); / /вводим с клавиатуры первое число

read (a);

write ('введите второе число '); / /вводим с клавиатуры второе число

read (b);

while ab do / /организуем цикл пока числа не сравняются

if a>b then a:=a-b / /проверяем, если первое число больше второго, то уменьшаем его на второе, если нет, то второе уменьшаем на первое

else b:=b-a;

nod:=a; / /присваиваем ответ

write ('наибольший общий делитель = ', nod); / /выводим ответ на экран

end.