{* Периметр квадрата *}

Unit PERIMETR1;
Interface
Implementation
Begin
 writeln('Дана сторона квадрата a. Найдите его периметр P=4*a');
End.

Program kvadrat;

Uses perimetr1.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  a : integer;
  P : integer;
Begin
  Clrscr; {* Очистка экрана *}
  Writeln('введите сторону квадрата а');
  readln(a);
  P := 4 * a;
  Writeln('Периметр равен ', P);
  readln; {* Ждем подтверждения пользователя *}
End.