Составьте алгоритм решения задачи и представьте его любым удобным Вам способом (на естественном языке, на псевдокоде/алгоритмический язык, в виде блок-схемы или на языке программирования Pascal)
1. С клавиатуры вводятся три целых числа. Определите количество положительных чисел в этом наборе.
2. С клавиатуры вводится целое число n. Вычислите сумму S=1+2+3+...+n.
3. С клавиатуры вводится целое число N. За ним последовательно вводятся данные о росте N учащихся класса. Определите средний рост учащихся всего класса.
4. Вводится расстояние L в сантиметрах. Выясните, сколько в нём полных метров. Выведите это количество.

program task1;var  a, i, kol :integer;begin  for i:= 1 to 3 do  begin    readln(a);    if a > 0 then      inc(kol);  end;  writeln(kol);end.program task2;var  n, result :integer;function summa (x :integer) :integer;  var     i, sum :integer;  begin    for i:= 1 to x do      sum:= sum + i;    summa:= sum;  end;begin  readln(n);  result:= summa(n);  writeln(result);end.program task3;var  i, n, growth, sum, kol :integer;  SrGrowth :real;begin  readln(n);  sum:= 0; kol:= 0;  for i:= 1 to n do  begin    readln(growth);    sum:= sum + growth;    inc(kol);  end;  SrGrowth:= sum/kol;  writeln(SrGrowth);end.program task4;var  l :integer;begin  readln(l);  l:= l div 100;  writeln(l);end.

1) var a1, a2, a3, s: integer;begin    write('Введите первое число: ');readln(a1);write('Введите второе число: ');readln(a2);write('Введите третье число: ');readln(a3);if a1>0 then s:=s+1;if a2>0 then s:=s+1;if a3>0 then s:=s+1;writeln(s);end.2) var n, s, i: integer;begin    write('Введите число n: ');readln(n);for i:=1 to n dos:=s+i;writeln(s);end.3) var n, s, i, k: integer;begin    write('Введите число n: ');readln(n);for i:=1 to n do beginwriteln('Введите рост ',i,' учащегося: ');readln(k);s:=s+k;end;writeln(s/i);end.4)var  l, m: integer;begin  write('Введите расстояние в сантиметрах: '); readln(l);  m := l div 100;  write('Количество метров в ', l, ' сантиметрах = ', m);end.