viết chương trình mảng số nguyên nhập n phần tử và in ra tổng các giá trị phần tử là số dương

Program tinh_tong;

Uses crt;

Var A :  array [1..150] of integer;

               S,i,n : integer;

 Begin 

Write ('nhap n='); 

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,'=');

Readln (A[i]);

end;

S:=0;

For i:=1 to n do 

If A[i]> 0 then 

S:=S+A[i];

Writeln ('Tong cac so duong trong day la:', S);

Readln 

End.

program ct;

uses crt;

var i,n,s:integer;

A:array[1..100] of integer;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do

if A[i]>0 then s:=s+A[i];

writeln('tong la:',s);

readln

end.