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

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