.


3 - 2


4, .................................................. 36.

9, .

.

Program Problem2;

uses WinCrt;

var

a, b, n, k, i : integer;

begin

write(' '); readln(a);

write(' '); readln(b);

if a mod b = 0

then n := b

else

if b mod a = 0

then n := a

else

begin

if a > b then i := b else

i := a;

k := 1;

while k < i do

begin

if (a mod k = 0) and

(b mod k = 0) then n := k;

k := k + 1

end

end;

writeln(' ', a,' ', b, ' ', n)

end.

, , !

, 36 45 36 . "" "" 27, 9 9 36 - .

, ? , " ", .. , , .

, , , , .

, 36 45 36 , 27: 36, 35, 34, 33, 32, 31, ..., 9.


; , , ; , ; , .