Написать программку, запрашивающую пять чисел и суммирующию только положительные из них.

uses crt;

const n=5;

var a:array[1..n] of integer;

   s,i:integer;

begin

    for i:=1 to n do

    read(a[i]);

    for i:=1 to n do

    write(a[i]:3);

    for i:=1 to n do

    begin

         if (a[i]gt;0)and(a[i]lt;gt;0) then s:=s+a[i];

    end;

    writeln;

    write(s);

end.