Program Prog;
Uses crt;

 var a: array [1..100] of real;
     i, N: integer;
 
 begin
 clrscr;
 
 Write(N = );
 readln(n);
 
 for i:=1 to n do
 begin
     write(a[,i,] = );
     readln(a[i]);
 end;
 
 writeln;
 writeln(Положительные числа: );
  for i:=1 to n do
 if (a[i]gt;0) then
     writeln(a[,i,] = , a[i]);
 end.