Помогите решить задачи:
1) С клавиатуры вводятся 3 целых числа. Определите количество положительных чисел в этом наборе.
2) С клавиатуры вводится натуральное число n. Вычислите сумму S=1+2+...+n.
3) Заполните элементы массива последовательностью чисел:2,5,10,17,26,...

Спасибо.помог.

В первой задаче нужна не сумма положительных, а их количество

исправил

Только в тексте вывода у Вас по-прежнему "Сумма...."

program fagasg;var a,b,c,d: integer;beginWriteln('Введите первое число');readln(a);Writeln('Введите второе число');readln(b);Writeln('Введите третье число');readln(c);d:=0;If a>0 then d:=d+1;If b>0 then d:=d+1;If c>0 then d:=d+1;Writeln('Количество положительных чисел:',d);end.

1) program fagasg;var a,b,c,d: integer;beginWriteln('Введите первое число');readln(a);Writeln('Введите второе число');readln(b);Writeln('Введите третье число');readln(c);d:=0;If a>0 then d:=d+1;If b>0 then d:=d+1;If c>0 then d:=d+1;Writeln('Количество положительных чисел:',d);end.2) program gsggdfd;var n,s,i: integer;beginwriteln('Введите n');readln(n);s:=0;For i:=1 to n do  S:=s+i;Writeln('Сумма последовательности равна:',s);end.3)Program afsdgf;var A: Array[1..100] of integer;   i,h,s,l: integer;begin  Writeln('ведите размер массива');  readln(h);  s:=1;  l:=1;  For i:=1 to h do    begin      A[i]:=s+l;      s:=s+2;      writeln(A[i]);      l:=A[i];    end;end.