Viết chương trình sử dụng biến mảng để tính tổng các phần tử lớn hơn 0 của dãy N số nhập vào từ bàn phím?

Please, help me!

Chương trình pascal sau sẽ in ra màn hình nội dung gì?

Var i: integer;

Begin

For i:=1 to 10 do writeln('Day la lan thu',i); Readln;

End.

Hãy cho biết trong đoạn chương trình sau chương trình thực hiện bao nhiêu vòng lặp?

N:= 0; s:=0

While s<=10 do

Begin

N:=n+1; s:=s+n;

End.

Giúp mk nha mn. Mơn nhiều ạ!