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

program zz1;
var a,b,nod:integer; //задаем переменные
begin
write(введите 1-ое число ); //вводим с клавиатуры первое число
read(a);
write(введите 2-ое число ); //вводим с клавиатуры 2-ое число
read(b);
while alt;gt;b do //организуем цикл пока числа не сравняются
if agt;b then a:=a-b //проверяем, если 1-ое число больше второго, то убавляем его на второе, если нет, то 2-ое убавляем на первое
else b:=b-a;
nod:=a; //присваиваем ответ
write(величайший общий делитель = ,nod); //выводим ответ на экран
end.