Прошу помогите решить задачу в Pascal. Срочно!!!! По теме Цикла с параметром

[Danilzp]

Для натурального числа m вычислить значение m ^ 2, пользуясь следующей схемой: 1^2=1, 2^2=1+3, 3^2=1+3+5, . . .

[newerow1989]

var i,m,s:integer;
begin
   Write('m = '); Readln(m);
   s:=0;
   For i:=1 to m do
      s:=s+(i*2)-1;
   Writeln('m^2 = ',s);
   Readln;
end.