Работа с одномерными массивами. Составить на языке PASCAL программу обработки одномерного массива. Установить, сколько элементов массива F(15) удовлетворяют следующему условию: 3

Лови)

var
  F: array [1..15] of real;
  i, res: integer;

begin
  writeln(Enter F:);
  for i := 1 to 15 do
  begin
    write(F[, i, ] = );
    readln(F[i]);
  end;
 
  res := 0;
  for i := 1 to 15 do
    if (F[i] > 3) and (F[i]       res := res + 1;
 
  writeln(res);
end.