Запишите команды для пстроения цифры 1

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

Дискретные сигналы (они же цифровые)- принимают конечное число значений функции: примеры дискр: -энергетические уровни атома -сигналы светофора -символы, слова и т.д. и т.п. непрерывный (он же аналоговый)- принимает бесконечное количество значений функции, амплитуда и время которого меняются непрерывно. примеры непрерывных: -звуковая волна -диаграмма изменения давления, влажности, напряжения и др. физ. величин. для преобразования непрерывного сигнала в дискретные производят дискретизацию. процесс дискретизации сопровождается потерей информации, если частота дискретизации в 2 раза меньше максимальной частоты непрерывного сигнала по теореме найквиста (вроде так), в россии эту теорему называют теоремой котельникова. p.s. написано что категория 5-9 классы, хотя это уже 1 курс