Определите, что будет написано в итоге работы следующей программыVar s,k:

Определите, что будет написано в результате работы последующей программки
Var s,k: integer;
Begin
s:=100
for k:= 2 to 7 do
s:=s -10
write (s)
End.

Определите, что будет написано в результате работу последующей программки:
Var k, i: integer;
Begin
k:=2;
For i:= 1 to 4 do
k:= 2*i+k;
Writeln(k);
End.