{* Площадь прямоугольник *}

Unit PRYAMPL;
Interface
Implementation
Begin
 writeln('Даны стороны прямоугольник a и b. Найти его площадь S = a*b и периметр P = 2*(a + b). ');
End.

Program ploshad;

Uses pryampl.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  a : real;
  b : real;
  P : real;
  S : real;
Begin
  Clrscr; {* Очищаем экран *}
  Writeln('введите сторону прямоугольника а');
  readln(a);
  Writeln('введите сторону прямоугольника b');
  readln(b);
  S := a * b;
  Writeln('Площадь равна ', S : 5 : 3);
  P := 2 * (a + b);
  Writeln('Периметр равен ', P : 5 : 3);
  readln; {* Ждем подтверждения пользователя *}
End.