program unos;
var brp,brn,n,i:integer;
pros:real;
begin
br:=0;
write('ucitaj n: '); readln(n);
for i:=1 to n do begin
if (i mod 2=0) then brp:=brp+1 else brn:=brn+1;
pros:=pros+i;
end;
pros:=pros/n;
writeln('ima ',brp,' parnih brojeva');
writeln('ima ',brn,' neparnih brojeva');
writeln('prosjek ucitanih brojeva je ',pros:3:3);
readln;
end.
evo, trebalo bi radit
