program raf105;
const a=3;
var S,P:integer;
begin
S:= a*a;
P:= a*4;
writeln('Площадь: ',S);
writeln('Периметр: ',P);
end.
Язык PascalABC
