Найти квадрат суммы первых 1000 натуральных чисел

pascal

var i: integer;

res: real;

begin

for i := 1 to 1000 do res := res + i;

res := sqr(res);

WriteLn(res);

end.