Число называется автоморфным, если последние цифры записи квадрата этого числа совпадают с самим числом. составить программу нахождения всех автоморфных трехзначных чисел — Pascal(Паскаль)

uses crt;
var a:longint;
    s,s1:string[6];
begin
clrscr;
writeln('Трехзначные автоморфные числа:');
for a:=100 to 999 do
 begin
  str(a,s);
  str(a*a,s1);
  if s=copy(s1,length(s1)-2,3) then
  writeln(a,' - ',a*a);
 end;
readln
end.

uses crt;
var x:integer;
    b:longint;
begin
clrscr;
x:=999;
writeln('x=',x);
b:=x*x;
write('x^2=',b);
readln
end.