{* Задача 273 *}

Unit ZADACH273;
Interface
Implementation
Begin
 writeln('Ввести шесть чисел и найти произведение чисел больших 5 ');
End.

Program zadach273;

Uses zadach273.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  x : integer;
  p : integer;
  i : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  p := 1;
  For i := 1 To 6 Do {* Увеличиваем i от 1 до 6 с шагом 1 *}
  Begin
    writeln('Введите число');
    readln(x);
    If x > 5 Then
    Begin
      p := p * x;
    End;
    
  End;
  writeln('p=', p);
  readln; {* Ждем подтверждения пользователя *}
End.