паскаль
Составить программу для проверки, можно ли заданное натуральное число N представить в виде куба простого числа.

var n,k,m:integer;beginreadln(n);for k:=1 to n dobeginm:=k*k*k;if m=n  then beginwriteln(k,'*',k,'*',k,'=',n);exit;end;end;if (m<>n) then writeln('Het');end.