Синформатикой решите в строчку

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n,p:integer;
  var s:string;
  for var a:=1 to 9 do
    for var b:=0 to 9 do
      for var c:=0 to 9 do begin
        n:=100*a+10*b+c;
        s:=(n*n).ToString.Right(3);
        p:=Pos(a.ToString,s);
        if p>0 then begin
          Delete(s,p,1);
          p:=Pos(b.ToString,s);
          if p>0 then begin
            Delete(s,p,1);
            if s=c.ToString then Write(n,'(',n*n,')',' ')
            end
          end
        end
end.

Результат
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)

1) Основной инструмент передачи, хранения и обработки информации (9 букв).-компьютер
2) Основное устройство ввода информации (10 букв).-клавиатура
3) "Мозг" компьютера (9 букв).-процессор
4) Устройство вывода информации (7 букв).-монитор
5) Устройство хранения программ и данных (6 букв).-память
6) Устройство для быстрого перемещения по экрану и выбора информации (4 буквы).-мышь
7) Носитель информации, на который записывают программы для хранения (7 букв).-дискета
8) Другое название жёсткого диска (9 букв). -винчестер
9) Устройство, с которого можно вывести на бумагу тексты и рисунки (7 букв).-принтер