Дано 7 чисел. Найти произведение чисел больших 5.

program zz1;

var a, b, c, d, e, f, g, p:integer; / / задаем переменные целого типа

begin

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

read (a);

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

read (b);

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

read (c);

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

read (d);

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

read (e);

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

read (f);

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

read (g);

p:=1;

if a > 5 then p:=p*a;

if b > 5 then p:=p*b;

if c > 5 then p:=p*c;

if d > 5 then p:=p*d;

if e > 5 then p:=p*e;

if f > 5 then p:=p*f;

if g > 5 then p:=p*g;

write (' произведение чисел больших пяти = ', p);

end.