Найти сумму 10 членов арифметической прогрессии a, a+d, a+ а - первый член прогрессии, d - постоянное слагаемое, разность прогрессии.паскаль

Var
 a,d,s,i:integer;
begin;
 readln(a);
 readln(d);
  for i:=0 to 9 do
   s:=s+a+d*i;
 writeln(s);
end.

Задача 1:

var a,b: real;

var c: char;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите нужную операцию (+,-,*,/): ');

readln(c);

if (c='+') then writeln('Результат: ',a+b)

else if (c='-') then writeln('Результат: ',a-b)

else if (c='*') then writeln('Результат: ',a*b)

else if (c='/') then writeln('Результат: ',a/b);

end.

Задача 2:

var a: integer;

begin

write('Введите количество кроликов: ');

readln(a);

write('Количество морковок: ',3*100+a*2);

end.

Задача 3:

var a: integer;

begin

write('Введите число: ');

readln(a);

write('Последняя цифра числа: ',a mod 10);

end.

#include <iostream>

using namespace std;

int main(){

int n = 0;

cout << "Введіть розмірність матриці n*n: ";

cin >> n;

int A[n][n];

for(int i = 0; i<n; i++){

 for(int j = 0; j<n; j++){

  cout << "Введіть А[" << i << "][" << j << "]: ";

  cin >> A[i][j];

 }

}

int sum = 0;

cout << "\n\nМатриця:\n";

for(int i = 0; i<n; i++){

 for(int j = 0; j<n; j++){

  cout << A[i][j] << " ";

  if(A[i][j]%2 != 0) sum+=A[i][j];

 }

 cout << endl;

}

cout << "\n\nСума: " << sum;

cout << endl;

return 0;

}