Помогите, пожалуйста! Задачка 1. Запишите значение переменной s, полученное в итоге

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

Задачка 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.