Y=1/1-2/2-3/3-4//n составить блок-схему и программу на паскале. заранее

//Pascal ABC.NET v3.1 сборка 1172

Var
 y:real;
 i,n:integer;
begin 
readln(n);
 y:=1;
 for i:=2 to n do
 y:=y-i/i;
 writeln(y);
end.

Пример ввода:
3
Пример вывода:
-1