Триморфное число-число,запись куба которого оканчивается цифрами самого этого числа. например,4^3=64,24^3=13 824,249^3=15 438 249.определить,является ли введенное число тримоформным.

Var
  m,n:longint;
  s1,s2:string;
  k1,k2:integer;
begin
  Write('Введите целое число без знака: '); Readln(m);
  Str(m,s1); k1:=length(s1);
  n:=m*sqr(m); Str(n,s2); k2:=length(s2);
  if s1=Copy(s2,k2-k1+1,k1) then Writeln('Число триморфное')
  else Writeln('Число не триморфное')
end.

Тестовое решение:
Введите целое число без знака: 249
Число триморфное