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;
Begin
write('Задайте начальное и конечное значения параметра цикла: ');
readln (k1,k2);
s:=0;
for k:=k1 to k2 do
begin
s:=s+6;
writeln(s);
end
End.