Question

Здравствуйте!) Очень нужна ваша помощь) Нужно написать программу в Паскале с оператором повторения!

Answer 1

Var a,b,c:integer;
beginwriteln('введите n-q элемент прогрессии');
readln(a);
for b:=1 to a do
begin
c:=c+2;
end;
writeln(c);
end.