{* Площадь квадпрата *}

Unit KVADRAPL;
Interface
Implementation
Begin
 writeln('Дана сторона квадрата a. Найти его площадь S=a2. ');
End.

Program kvadrat2;

Uses kvadrapl.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  a : integer;
  S : integer;
Begin
  Clrscr; {* Стираем всё с экрана *}
  Writeln('введите сторону квадрата а');
  readln(a);
  S := sqr(a);
  Writeln('Площадь равна ', S);
  readln; {* Приостановка программы. Ожидание Enter *}
End.