Составьте программу ввода элементов массива h [1..8] с клавиатуры и вывода на экран элементов с отрицательным значением

program zadacha;varh: array [1..8] of real;i: byte;beginwriteln('vvedite 8 chisel');for i:=1 to 8 do read(h[i]);for i:=1 to 8 do begin    if h[i]<0 then writeln(h[i]);    end;end.