programm
Var s,k: integer;
Begin
s:=0;
for k:=3 to 7
do
s:=s+6;
writeln(s);
End.
Сделать так, чтобы могло выдавать любое значение на месте k:= и чтобы каждый раз выдавал число, т.е. чтобы показывался ход цикла каждый раз.

Program pr1;Var s,k,k1,k2: integer;Beginwrite('Задайте начальное и конечное значения параметра цикла: ');readln (k1,k2);s:=0;for k:=k1 to k2 dobegins:=s+6;writeln(s);endEnd.