program SquarePerimeterAndArea;varside, perimeter, area: real;beginwrite('Введите длину стороны квадрата: ');readln(side);
perimeter := 4 side;area := side side;
writeln('Периметр квадрата: ', perimeter);writeln('Площадь квадрата: ', area);
end.
program SquarePerimeterAndArea;
var
side, perimeter, area: real;
begin
write('Введите длину стороны квадрата: ');
readln(side);
perimeter := 4 side;
area := side side;
writeln('Периметр квадрата: ', perimeter);
writeln('Площадь квадрата: ', area);
end.