Я не крутой прогер, и, поэтому вот решение тупым перебором.
program ttt;
var k,a,b,c,i:longint;
begin
for k:=1 to 9 do begin
for b:=1 to 9 do begin
for a:=1 to 9 do begin
for c:=0 to 9 do begin
if (100*k+10*k+k = (10*b+k)*(10*a+c)) then writeln(k,k,k,'=',b,k,'*',a,c);
end
end
end
end
end.
Немножко неразборчиво написано, потому на сайте нет функции вставки программного кода. Так что извини.