function Proverka(an:integer; var at:integer):boolean;
var  e,k:Real;
begin
     e:=0.00001;
      k:=Exp((1/3)*Ln(an));
       if Frac(k)<e
        then
         begin
           Proverka:=true ;
           at:=Trunc(k);
         end
        else Proverka:=false;
end;
var  n,t:integer;
begin
      Write('N = ');
       Readln(n);
        Writeln;
     t:=0;
     if Proverka(n,t)
      then Writeln('DA rezultat = ',t)
      else Writeln('NET');
     Readln;
end.

Var
 N,i,Q:Integer;
 BLN:Boolean;

Function Prime(J:Integer):Boolean;
Var
 m:Integer;
 b:Boolean;
begin
 b:=true;
 if J>3 then
  begin
   m:=(J div 2)+1;
   Repeat
    Dec(m);
    If (J mod m)=0 then b:=false;
   Until (b=false) or (m=2);
  end;
 Prime:=b;
end;

Begin
 Write('N = ');
 Readln(N);
 Q:=0;
 Repeat
  Inc(Q);
  BLN:=Prime(Q) and (Q*Q*Q=N);
 Until BLN or (Q*Q*Q>N);
 if BLN then
  Writeln('Yes: ',N,' = ',Q,'*',Q,'*',Q)
 else
  Writeln('No');
End.

function Prostoe(aa:integer):boolean;
var  pr:boolean;
      d:integer;
begin
     if aa<1
      then pr:=false
      else
       begin
         pr:=true;
         for d:=2 to (aa div 2) do
          if (aa mod d=0) then
           begin
             pr:=false;
             Break;
           end;
       end;
      Prostoe:=pr;
end;
function Proverka(an:integer; var at:integer):boolean;
var  e,k:Real;
     a:integer;
begin
     e:=0.00001;
      k:=Exp((1/3)*Ln(an));
       if Frac(k)<e
        then
         begin
           a:=Trunc(k);
            if Prostoe(a) then
             begin
               Proverka:=true ;
               at:=a;
             end
         end
        else Proverka:=false;
end;
var  n,t:integer;
begin
      Write('N = ');
       Readln(n);
        Writeln;
     t:=0;
     if Proverka(n,t)
      then Writeln('DA rezultat = ',t,'*',t,'*',t)
      else Writeln('NET');
     Readln;
end.

Function <имя функции>(формальные параметры): тип значения функции;
Var
  . . . 
Begin
  . . .
End ;