Var
 i:Byte;

Function Cube_Square(Q:Byte):Boolean;
var
 Sum,Prod:Word;
begin
 Sum:=(Q div 10)+(Q mod 10);
 Prod:=Q*Q;
 Cube_Square:=(Sum*Sum*Sum=Prod);
end;

Begin
 for i:=10 to 99 do
  if Cube_Square(i) then write(i:4);
 readln
End.

Var
 A:Array[1..5,1..5] of Integer;
 S:Array[1..5] of Integer;
 Max:Integer;
 i,j,Imax:Byte;
Begin
 Randomize;
 For i:=1 to 5 do S[i]:=0;
 Max:=-200;
 For i:=1 to 5 do
  begin
   for j:=1 to 5 do
    begin
     A[i,j]:=-50+Random(100);
     Write(A[i,j]:6);
     S[i]:=S[i]+A[i,j];
    end;
   Write('   Sum= ',S[i]:6);
   If S[i]>Max then
    begin
     Max:=S[i];
     Imax:=i;
    end;
   Writeln;
  end;
 Writeln;
 Writeln('Maximal sum is in the line N',Imax);
 Readln
End.

var
 S:string;
 i,N: integer;
 W:Array[1..255] of String;

begin
 writeln('Enter the string:');
 readln(S);
 N:=1;
 i:=1;
 Repeat
  While (S[i]=' ') and (i<Length(S)) do Inc(i);
  W[N]:='';
  While (S[i]<>' ') and (i<=Length(S)) do
   begin
    W[N]:=W[N]+S[i];
    Inc(i);
   end;
  If i<Length(S) then Inc(N);
 Until i>=Length(S);
 For i:=1 to N do Write(W[i]+' ');
 Readln
End.