var s,k:integer;

begin

s:=0;

for k :=3 to 7 do

s:=s+6;

writeln(s);

end.

запишите значение переменной S, полученное в результате работы этой программы