Решите циклом для или циклом пока. 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.