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

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