Паскаль. мне 1.определите значения переменных s и i после выполнения фрагмента программы на паскале: 2.определите значения переменных t, которое будет выведено на экран программой на паскале: 3.определите значения переменных s и i после выполнения программы на паскале:

#include <iostream>
using namespace std;

int main() {
int a, b, c;
cout << "Введите 3 целых числа:\n";
cin >> a >> b >> c;
    cout << a << "+" << b << "+" << c << "=" << a+b+c << "\n";
cout << a << "*" << b << "*" << c << "=" << a*b*c << "\n";
cout <<"("<<a<<"+"<<b<<"+"<<c<<")/3="<<(a+b+c)/3.0<<"\n";
return 0;
}

Пример:
Введите 3 целых числа:
5 7 8
5+7+8=20
5*7*8=280
(5+7+8)/3=6.66667

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=Arr(-6,7,45,-12,2,7,-15,0,64);
  var kp:=0; var sp:=0;
  for var i:=0 to a.Length-1 do begin
    WritelnFormat('A[{0}]={1}',i,a[i]);
    if a[i]>0 then begin kp+=1; sp+=a[i] end
    end;
  Writeln('Сумма ',kp,' положительных элементов равна ',sp)
end.

Результат
A[0]=-6
A[1]=7
A[2]=45
A[3]=-12
A[4]=2
A[5]=7
A[6]=-15
A[7]=0
A[8]=64
Сумма 5 положительных элементов равна 125

Задание 2
begin
  Writeln(SeqGen(40,x->45*x+15,1).Where(x->x.IsOdd).Count);
end.

Результат
20

Задание 3
begin
  Writeln(SeqGen(25,k->7*k+3*k/15,1).Average);
end.

Результат
93.6