Program exe1;
var P,a: real;
begin
writeln (введите периметр квадрата);
readln(P);
a:=P/4;
writeln(сторона квадрата равна, a);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.