Program NWD;   { ---> WG ALGORYTMU EUKLIDESA ---}
uses crt;

var a, b, c :integer;

{*******************************************************}
Procedure licz;
Begin
Repeat
c:=a mod b;
a:=b;
b:=c;
if b=0 then
begin
gotoxy (25,20);
write ('NWD z liczb A i B wynosi: ',a);
end;
Until b=0;
End;
{*******************************************************}

BEGIN
clrscr;
textcolor (yellow);
gotoxy (20,3);
writeln ('Program wyliczy NWD dla liczby A i B ');
gotoxy(12,5);
write ('Podaj liczbe calkowita A: '); readln (a);
gotoxy(12,6);
write ('Podaj liczbe calkowita B: '); readln (b);
textcolor (white);

licz;

readln
END.