[terminator]

program prvi;
var i:integer;
zbroj:real;
begin
zbroj:=0;
for i:=1 to 30 do
zbroj:=zbroj+(1/i);
write('zbroj recipročnih vrijednosti je ',zbroj:3:3);
readln;
end.

evo prvi