program summa;
var i:integer;y:real;
begin
y:=0;
for i:=1 to 20 do y:=y+1/i;
write('y=',y:7:2); {форматный вывод - на ответ приходится 7 символов,}
end. {из которых 2 знака после запятой}
program summa;
var i:integer;y:real;
begin
y:=0;
for i:=1 to 20 do y:=y+1/i;
write('y=',y:7:2); {форматный вывод - на ответ приходится 7 символов,}
end. {из которых 2 знака после запятой}