Введите массив из 5 элементов с улавиатуры и выведите те элементы массива которые больше 8 если таких элементов нет то сообщить об этом

Const

N = 5;

Var

A:array[1 ... N] of real;

i, k:integer;

Begin

For i: = 1 to N do

Read (A[i]);

k:=0;

For i: = 1 to N do

if A[i]>8 then

Begin

k:=k+1;

Write (A[i],' ');

End;

if k=0 then WriteLn ('Таких чисел нет')

End.