Здраствуйте, написать в паскаль.заранее

program option1;

var a:integer;

begin

readln(a);

writeln('Периметр = ',4*a);

write('Площадь = ',a*a);

end.

program option2;

var x:integer;

begin

readln(x);

write('x = ', 4*power((x-3),6)-7*power((x-3),3)+2);

end.