program SquarePerimeterAndArea;
var
side, perimeter, area: real;
begin
write('Введите длину стороны квадрата: ');
readln(side);

perimeter := 4 side;
area := side side;

writeln('Периметр квадрата: ', perimeter);
writeln('Площадь квадрата: ', area);

end.