Помогите, пожалуйста! Задача 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.