Помогите, пожалуйста!

Задача 1.
Запишите значение переменной s, полученное в результате работы следующей программы. Заполните таблицу трассировки.
var s,k: integer;
begin
s:=0;
for k:=4 to 8 do
s:=s+7;
writeln(s);
end.

Задача 2.
Запишите значение переменной d, полученное в результате работы следующей программы. Заполните таблицу трассировки.
var d,n: integer;
begin
d:=6;
d:=d-2;
for n:=1 to 4 do
d:=d+n;
writeln(d);
end.

Задача 3.
Определите, что будет напечатано в результате работы следующей программы. Заполните таблицу трассировки.
var s,k:integer;
begin
s:=0;
for k:=3 to 100 do
s:=s+13;
writeln(s);
end.

Задача 1. Ответ: 35

Задача 2. Ответ: 14

Задача 3. Ответ: 1274