Найти положительные числа из 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, оно выводится на экран. Затем программа завершает работу.