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

ну а программа то работать будет?

var n:uint64;
begin
read(n);
if(n*n*n mod round((power(10,inttostr(n).Length))) = n) then writeln('yes')
else writeln('no');
end.

мне кажется легче, но это мое мнение