Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
caps lock,shift
var
s,n,i: integer;
begin
write('введите количество чисел');
readln(n);
s: =0;
for i: =1 to n do
s: =s+i*3;
writeln(s);
end.
Популярные вопросы