Ответы и объяснения

2013-02-16T17:29:51+04:00

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.