Триморфное число-число,запись куба которого оканчивается цифрами самого этого числа. Например,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
Число триморфное