{* Произведение 2-х вещественных чисел *}

Unit PROIZV2_REAL;
Interface
Implementation
Begin
 writeln('Программа очищает экран, вычисляет произведение 2-х вещественных чисел, вводимых пользователем');
End.

{Программа очищает экран, вычисляет произведение 2 - х вещественных чисел,  вводимых пользователем}
Program proizv2_real;

Uses proizv2_real.pas; {* Эту строку можно удалить *}
{название программы}
Uses crt; {подключаем модуль crt}
Var {переменная для хранения первого числа}
  {переменная для хранения второго числа}
  {переменная для хранения результата}
  : real; {тип вещественных данных}
Begin
  clrscr; {очищаем экран}
  writeln('Введите 1 - е число'); {выводим сообщение}
  read(number1); {происходит присваивание переменной number1 значения,                       которое мы вводим на клавиатуре}
  writeln('Введите 2 - е число'); {выводим сообщение}
  read(number2); {происходит присваивание переменной number2 значения,                       которое мы вводим на клавиатуре}
  rez := number1 * number2; {присваивание переменной rez произведения                                  переменных number1, number2}
  writeln('Результат ', rez : 4 : 4); {вывод сообщения и значения                                       вещественной переменной rez в формате:                                       4 позиции для целой части и 4 позиции для дробной части}
  readln; {задержка экрана}
  readln; {задержка экрана}
End.