Запишите значение переменной f,полученное в результате работы программы:
Var f,n:integer;
Begin
f:=22
f:=f-20
For n:=1 to 5 do
f:=f+n;
Writeln(f)
End.