Найти положительные числа из 10 натуральных чисел. Паскаль!

Var a: array [1 ... 10] of real;

begin

writeln ('Введите 10 натуральных чисел') ;

for i:=1 to 10 do read (a[i]) ;

for i:=1 to 10 do

if a[i] > 0 then writeln (a[i])

end.

Программа просит пользователя ввести 10 натуральных чисел. Для этого используется оператор read в первом цикле.

Во втором цикле проверяется каждое из 10 чисел. Если оно положительное, т. е. больше 0, оно выводится на экран. Затем программа завершает работу.