Запиши программу на языке Паскаль. Вычисли сумму s=∑k=1nk+1k2+1, если значение n вводит пользователь. Если n=9, то вывод на экран (ответ округли до сотых)

#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <conio.h>

int main() {
   double a, b, y;
   int x;

   a = 6.72f;
   b = 4.85f;
   printf("vvedite x=");
   scanf("%d", &x);

   switch (x) {
       case 1: y = 1 + sqrt(a + abs(x)); break;
       case 7: y = 2 + a*a*x*x + exp(x); break;
       case 5: y = x*sqrt(1+b*log(a*a*x)); break;
       default:
          printf("znachenie x zadano neverno\n");
          printf("nagmi Enter\n");
          getch();
          return 0;
   }

   printf("x=%2dy=%5.2lf", x, y);
   getch();
   return 0;
}

А) var a,sum,i:integer;
begin
sum:=0;
for i:=100 to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.

б) var a,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
for i:=a to 500 do
begin
sum:=sum+i;
end;
writeln(sum);
end.

в) var b,sum,i:integer;
begin
sum:=0;
writeln('Введите число b');
readln(b);
for i:=-10 to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.

г) var a,b,sum,i:integer;
begin
sum:=0;
writeln('Введите число a');
readln(a);
writeln('Введите число b');
readln(b);
for i:=a to b do
begin
sum:=sum+i;
end;
writeln(sum);
end.