{* Задача 407 *}

Unit ZADACH407;
Interface
Implementation
Begin
 writeln('Напишите программу решения неравенства A * X > 40.');
End.

Program zadach407;

Uses zadach407.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Const {* Константы *}
  b = 40;
Var {* В работе нам потребуются переменные: *}
  x : real;
  a : real;
Begin
  clrscr; {* Очистка экрана *}
  writeln('A*x>40');
  writeln('введите А');
  readln(a);
  x := b / a;
  writeln('решением являются все числа больше', x);
End.