var s:real;i:shortint;begin s:=0; for i:=1 to 100 dos:=s+1/i; writeln(s); readln; readln;end;var s:real; i,j:integer;begin j:=12; s:=0; for i:=1 to 100 dobegin s:=s+j; j:=j+10;end; writeln(s); readln; readln;end.
program p1;var s:real;
n:shortint;beginfor n:=1 to 100 dos:=s+1/n;writeln(s);readln;end.---------------------------program p2;var s:longint;
n:shortint;beginfor n:=1 to 100 dos:=s+n*10+2;writeln(s);readln;end.
1:program q1(input,output);var i:longint;s:real;begins:=0;for i:=1 to 100 do s:=s+1/i;writeln(s:0:5);end.2:program q2(input,output);var s:longint;begins:=0;for i:=1 to 100 do s:=s+i*10+2;writeln(s);end.