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