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

program zz1;

var x, y, z, p:integer; / / вводим переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (y);

write (' введите третье число '); / / вводим с клавиатуры третье число

read (z);

if x > 7 then p:=p + 1; / / проверяем введенные числа и считаем их

if y > 7 then p:=p + 1;

if z > 7 then p:=p + 1;

/ / выводим ответ

write (' количество чисел больших 7 = ', p);

end.