Помогите пожалуиста по информатике,написать программу на языке Паскаль

var a:integer;

begin

   readln(a);

   if a > 0 then

       writeln('3a - 7a^2 + 18 = ', 3*a - (7*a*a) + 18)

   else writeln('15a + 4a^2  - 13 = ', 15*a - 4*(a*a) - 13);

end.