Сделайте таблицу трассировки пожалуйста . Запишите значение переменной s,полученное в результате работы след программы:
var s,k:integer ;
begin
s:=0;
fir k:=6 to 12 do
S:=s+10;
writeln(s);
end.

В итоге s = 70

Трассировка

1 шаг k = 6;  s = 10

2 шаг k = 7; s = 20

3 шаг k = 8 s = 30

4 шаг k = 9;  s = 40

5 шаг k = 10; s = 50

6 шаг k = 11 s = 60

7 шаг k = 12 s = 70