63419 oblicz NWD

program cw3_48;

{ Program znajduje największy wspólny dzielnik A i B { za pomocą funkcji.

{ Katalog r3_10 : 3_48.pas var

A, B : Integer;

function NWD CA, B : Integer) : Integer;

{ Funkcja oblicza największy wspólny podzielnik licz { A i B.

var

Pom : Integer; begin

while (A<>B) do begin

if A<B then begin

Pom := A; A := B; B :=• Pom; end;

A A - B; end;

NWD A;

end; {--------------------------NWD -}

begin

Write ('Podaj A: '); Readln (A);

Write ('Podaj B: '); Readln (B);

Write ('NWD (', A, ', ', B,    NWD (A, B));

Readln; end.