Программа с циклом.Pascal ABC

[Lols]

Ребят,помогите составить программу с циклом.Pascal ABC
Вычислите наименьший общий делитель двух натуральных чисел.

[Mad_Cat]

program p1;
var m,n:integer;
 begin
write('M= '); readln(m);
write('N= '); readln(n);
repeat
if n>m then n:=n mod m
else m:=m mod n;
until (m=0)or(n=0);
writeln('NOD= ',m+n);
readln;
end.

[MoBLer]

Mad_Cat,программа у вас странная 8)

var
a,b,c,i:integer;
begin
writeln('a b');
readln(a,b);
c:=1;
for i:=1 to a*b do
begin
c:=c+1;
if (a mod c=0) and (b mod c=0)  then break;
end;

writeln('c=',c);
readln
end.

[Mad_Cat]

Mad_Cat,программа у вас странная 8)

главное что она работает) и соответствует условиям ТС)

[Lols]

Спасибо,ребят.

[MoBLer]

Mad_Cat, Все я понял