Написать программу паскаля. периметр квадрата равен n см. найди длину стороны квадрата.

Program exe1;
var P,a: real;
begin
writeln ('введите периметр квадрата');
readln(P);
a:=P/4;
writeln('сторона квадрата равна', a);
end.