Question

Дано три числа x, y, z. Вычислить количество чисел больших 7.

Answer 1

var

  x, y, z : real;

  k : byte;

begin

  read (x, y, z);

  k := 0;

  if x > 7 then inc (k);

  if y > 7 then inc (k);

  if z > 7 then inc (k);

  writeln (k);

end.