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.
Аня-туристка
Боря-художник
гриша-футбол
дина-певица
вася-танцор
Винчествер!!!!!!!!!!!!!!!!!!!!!