Var p :integer; a, s :real;
begin
readln(p); a:= p/4; s:= sqr(a); writeln(Сторона квадрата равна ,a); writeln(Площадь квадрата равна ,s);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.