Помогите пожалуйста с задачами по информатике в паскале!!
1. Ввести целое число a и вывести сумму квадратов всех чисел от 1 до a с шагом 0.1.
Пример:
Введите последнее число:
3
Сумма 91.7
2. Ввести натуральное число A и вывести числа от A до 1 (через одно) в порядке убывания.
Пример:
Введите натуральное число:
8
Ответ: 8 6 4 2

1.var a,i:integer; s:real;beginwriteln('Введите последнее число:');readln(a);s:=0;for i:=0 to round((a-1)/0.1) do s:=s+(1+i*0.1)*(1+i*0.1);writeln('Сумма = ',s:4:1);end.Пример:Введите последнее число:3Сумма = 91.72.var a,i:integer;beginwriteln('Введите натуральное число:');readln(a);write('Ответ: ');while a>=1 do begin write(a,' '); a:=a-2; end;writeln;end.Пример:Введите натуральное число:8Ответ: 8 6 4 2