program option1;
var a:integer;
begin
readln(a);
writeln('Периметр = ',4*a);
write('Площадь = ',a*a);
end.
program option2;
var x:integer;
readln(x);
write('x = ', 4*power((x-3),6)-7*power((x-3),3)+2);
program option1;
var a:integer;
begin
readln(a);
writeln('Периметр = ',4*a);
write('Площадь = ',a*a);
end.
Вариант 15.program option2;
var x:integer;
begin
readln(x);
write('x = ', 4*power((x-3),6)-7*power((x-3),3)+2);
end.