Листинг программы

program z24;

{Два двузнач.числа,записанных одно за другим

образуют четырехзнач.число,которое делится на

 их произведение.Найти эти числа.}

uses crt;

var i,j,m,p:longint;i1,j1,m1:string;

    er:integer;

    begin

     clrscr;

     for i:=10 to 99 do

      for j:=10 to 99 do

       begin

        str(i,i1);str(j,j1);

        m1:=i1+j1;val(m1,m,er);p:=i*j;

        if m mod p=0 then writeln(m);

       end;

     readln;

    end.