Написать программу для вывода площади и периметра квадрата

Код программы:

var a:real;

begin

 writeln('Введите сторону квадрата');

 readln(a);

 if a < 0 then

   writeln('Сторона не может быть отрицательной')

 else begin

 writeln('Площадь квадрата = ', a*a);

 writeln('Периметр квадрата = ', 4 * a);

 end;

end.