Const
 N=40;

Var
 A,B,C:Array[1..N] of Integer;
 i,j,N1,N2:Byte;
 d:Integer;

Begin
 Randomize;
 For i:=1 to N do A[i]:=99-Random(200);
 Writeln('Initial array:');
 For i:=1 to N do write(A[i]:4);
 Writeln;
 Writeln;
 N1:=0;
 N2:=0;
 For i:=1 to N do
  If (A[i]>0) and ((A[i] mod 3)=0) then
   begin
    Inc(N1);
    B[N1]:=A[i];
   end
  else
   begin
    Inc(N2);
    C[N2]:=A[i];
   end;
 For i:=1 to N1-1 do
  For j:=1 to N1-i do
   If B[j]>B[j+1] then
    begin
     d:=B[j];
     B[j]:=B[j+1];
     B[j+1]:=d;
    end;
 For i:=1 to N2 do A[i]:=C[i];
 For i:=1 to N1 do A[i+N2]:=B[i];
 Writeln('Ordered array:');
 For i:=1 to N do write(A[i]:4);
 Readln;
End.

var i,s:integer;
begin
 for i:=10 to 99 do
   begin
     s:=sqr(i mod 10)+sqr(i div 10);
     if s mod 17=0 then writeln(i);
   end;
 readln;
end.