Помогите пожалуйста!!!!
Напишите программу на языке Паскаль через цикл repeat, которая вычисляет сумму:
а)первых n натуральных чисел
б)квадратов первых n натуральных чисел
в)всех чётных чисел в диапазоне от 1 до n
г)всех двузначных чисел

Program A_1;
uses crt;
Var
  i,n,sum: integer;
begin
  write(Введите N );
  readln(n);
  i:=0;
  sum:=0;
  repeat
    i:=i+1;
    sum:=sum+i;
  until i=n;
  writeln(Сумма чисел от 1 до ,n, равна ,sum);
end.

Program B_2;
uses crt;
Var
  i,n,sum: integer;
begin
  write(Введите N );
  readln(n);
  i:=0;
  sum:=0;
  repeat
    i:=i+1;
    sum:=sum+i*i;
  until i=n;
  writeln(Сумма квадратов чисел от 1 до ,n, равна ,sum);
end.

Program V_3;
uses crt;
Var
  i,n,sum: integer;
begin
  write(Введите N );
  readln(n);
  i:=0;
  sum:=0;
  repeat
    i:=i+1;
    if (i mod 2 = 0) then sum:=sum+i;
  until i=n;
  writeln(Сумма чётных чисел в диапазоне от 1 до ,n, равна ,sum);
end.

Program G_4;
uses crt;
Var
  i,n,sum: integer;
begin
  i:=9;
  sum:=0;
  repeat
    i:=i+1;
    sum:=sum+i;
  until i=99;
  writeln(Сумма всех двузначных чисел равна ,sum);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.