Problem ...

program brojevi;
const n=49;
var
a:array[1..n] of real;
p,i:integer;
begin
p:=1;
for i:=1 to 10 do
  begin
    writeln('Unesite ', i, ' element niza');
    readln(a[i]);
  end;
for i:=1 to 10 do
  begin
    writeln('Celobrojni deo ', i, ' elementa: ' , round(a[i]));
  end;
for i:=1 to 10 do
  begin
    if a[i]>0 then
      if 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
        else

        p:=1;

  end;
end.