задать с клавиатуры 10 чисел напечатеть те из них которые больше 50

Насколько я помню, решение в Паскале будет таким:

var

a : array [1 ... 10] of real; (здесь задаем цифры от 1 до 10)

i : byte;

begin

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

for i : = 1 to 10 do

if a[i] > 50 then write (a[i], ' '); (здесь задаем нужный нам диапазон "больше 50")

end.

Надеюсь я не ошибаюсь.