program No2;
var
m,n,i,NOK:integer;
begin
Write('Введите два натуральных числа: '); Read(m,n);
NOK:=m*n;
while n <> 0 do
begin
m := m mod n;
i := n; n := m; m := i
end;
NOK:=NOK div m;
Writeln('НОК=',NOK)
end.
program No3;
var
n:integer;
begin
Write('Введите натуральное число'); Read(n);
if n mod 9=0 then Writeln('Число делится на 9')
else Writeln('Число на 9 не делится')
end.
program No4;
var
i,n:integer;
begin
Writeln('Числа, которые после удаления средней цифры уменьшаются в 9 раз');
for i:=100 to 999 do begin
n:=(i div 100)*10+(i mod 10);
if i=9*n then Write(i,' ')
end;
Writeln
end.
