{* Вычисление площади параллелограмма *}

Unit PARL1;
Interface
Implementation
Begin
 writeln('Вычисление площади параллелограмма');
End.

Program lin_1;

Uses parl1.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  x : real;
  y : real;
  z : real;
Begin
  writeln('Vvedite visotu');
  readln(x);
  writeln('Vvedite osnovanie');
  readln(y);
  z := x * y;
  writeln('Plochad parallelograma = ', z : 5 : 2);
  readkey; {* Ждем нажатия любой клавиши *}
End.