Source
program
square
;
var
a
,
S
:
integer
;
begin
read
(
a
)
;
S
:
=
a
*
a
;
write
(
'Площадь квадрата: '
,
S
)
;
end
.
