Задача

[lavrentev]

Не могу написать программу, подскажите пожалуйста, буду благодарен
Нужно: вывести на экран такие 3-ех значные числа, у которых произведение 1 и 2 цифры равно квадрату 3 цифры
Это надо сделать с помощью repeat
Числа получаются следующие: 142, 193, 222, 284, 333, 444, 496, 555, 666, 777, 888

[newerow1989]

var i,j,k:integer;
begin
   For i:=1 to 9 do
      For j:=0 to 9 do
         For k:=0 to 9 do
            If i*j=k*k then
               Writeln(i,j,k);
   Readln;
end.

var a,i,j,k:integer;
begin
   a:=99;
   Repeat
      a:=a+1;
      i:=a div 100;
      j:=a div 10 mod 10;
      k:=a mod 10;
      If i*j=k*k then
         Writeln(i,j,k);
   Until a>=999;
   Readln;
end.

[lavrentev]

Спасибо большое, выручили

[newerow1989]