С РЕШЕНИЕМ ЗАДАЧИ, ОЧЕНЬ НУЖНА ВАША

// 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)

Моя триместровая решается

Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется длина ис- ходной цепочки символов; если она нечётна, то дублируется средний символ цепочки символов, а если чётна, то в середину цепочки добавляется буква А. В полученной цепочке символов каждая буква заменяется буквой, следующей за ней в русском алфавите (А - на Б, Б - на В и т. д., а - на А). Получившая- ся таким образом цепочка является результатом работы алгоритма. Например, если исходной была цепочкот, то результатом рабо- ты алгоритма будет цепочка ЛППУ, если исходной была цепоч- ка ВАНЯ, то результатом работы алгоритма будет цепочка ТГБОА. Дана цепочка символов САН. Какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (т. е. применить алгоритм к данной цепочке, затем к результату вновь при- алфавит: Русский алгоритм)? менить