Нужна программа в Паскале.

С клавиатуры вводятся значения переменной x. Найдите сумму только а=положительных элементов и их число.

Program test;
uses crt;
var x,n,sum,i:integer;
begin
clrscr;
 write(Input x );readln(x);
 for i:=1 to x do
  begin
   write(Input number,i, ); readln(n);
   if n>0 then sum:=sum+n;
  end;
writeln(sum);
readln;
end.

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