Помогите с заданиями по Информатике:

Program No2;
var
  m,n,i,NOK:integer;
begin
  Write(Введите два натуральных числа: ); Read(m,n);
  NOK:=m*n;
  while n lt;gt; 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.