Помогите составить программу.

на каком языке?

паскаль

Program z;
uses Crt;
var a,b,c,d:Integer;
begin
write('Введите два естественных числа: ');
read(a,b);
c:=a;
d:=b;
while (alt;gt;0) and (blt;gt;0) do
begin
if agt;b then a:=a-b
else b:=b-a;
end;
Write('НОД('+c+','+d+')=');
if agt;b then Write(a)
else Write(b);
end.