Source
program
square
;
var
a
,
P
:
integer
;
begin
read
(
a
)
;
p
:
=
4
*
a
;
write
(
'Периметр квадрата: '
,
P
)
;
end
.
