.


              

36.


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.


; , , ; , ; , .