Решите циклом ДЛЯ или циклом ПОКА.
1) Вычислить значение выражения z = 1 + 2+ 3+...+M. Распечатать квадрат и куб значений выражения.

Var
 sum,i,m:integer;
begin
 sum:=0;
 read(m);
 for i:=1 to m do
  sum:=sum+i;
 writeln(sum);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.