Unnamed

program brojevi;
const n=10;
var
a:array[1..n] of real;
p,i:integer;
begin
p:=1;
for i:=1 to n do
  begin
    writeln('Unesite ', i, ' element niza');
    readln(a[i]);
  end;
for i:=1 to n do
  begin
    writeln('Celobrojni deo ', i, ' elementa: ' , round(a[i]));
  end;
for i:=1 to n do
  begin
    if a[i]>0 and round(a[i]) = a[i] then 
        if p = 3 then 
        begin
          p:=1;
          writeln('Pozitivan broj: ', a[i]:8:2);
        end
        else
        begin
          p:=p+1;
        end
  end;
end.