{* Задача 406 *}

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

Program zd2;

Uses zadach406.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=', x);
End.