Pascal 1)Вычислить и вывести квадраты чисел натурального ряда от 1 до 10 2). В диапазоне от 1 до К вывести все нечётные числа Помогите пожалуйста ((

Язык: паскаль. Program alfa var i,n,sum:integer; begin writeln('Введите n'); readln('n'); ////Тут возможны два решения, с циклом и без. Вот первое: sum:=0; for i:=1 to n do if i mod 2 =0 then  sum:=sum+i; writeln(sum); end. ////Второе, более быстрое, использующее формулу суммы первых членов арифметической прогрессии: if n mod 2=1 then n:=n-1; sum:=((2+n)/2)*n/2; writeln(sum); end.