Периметр квадрата равен p. Найдите площадь квадрата

var  a, p: real;
begin
 write('Введите периметр квадрата: ');
 readln(p);
 a := p / 4;
 a := a * a;
 writeln('Площадь квадрата: ', a);
end.