Найдите сумму квадратов и квадрат суммы первых 10 натуральных чисел. по информатике( нужна программа)

Var i, sumkv, kvsum: integer;
begin
for i:=1 to 10 do
begin
sumkv:=sumkv+sqr(i);
kvsum:=kvsum+i;
end;
kvsum:=sqr(kvsum);
writeln('Сумма квадратов равна ', sumkv);
writeln('Квадрат суммы равен ', kvsum);
end.