{* Задача 405 *}

Unit ZADACH405;
Interface
Implementation
Begin
 writeln('Напишите программу решения уравнения A * X = B, где A и B – произвольные числа.');
End.

Program zd1;

Uses zadach405.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  a : real;
  b : real;
  x : real;
Begin
  clrscr; {* Очищаем экран *}
  writeln('программа решения уравнения a*x=b');
  writeln('введите а');
  readln(a);
  writeln('введите b');
  readln(b);
  x := b / a;
  writeln('результат x=', x);
End.