a2 NWD

program cw3_42;

{ Program znajduje największy wspólny dzielnik A i B. } { Katalog r3_09 : 3_42.pas    }

var

A, B, Pom : Integer; begin

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

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

Write ('NWD (', A, ', ', B,

while (A<>B) do

begin

if A<B then begin

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

A A - B; end;

Writeln (A);

Readln; end.