Ответ:

оооочень давно не прогал на паскале, попробуй скомпилировать, будут ошибки напиши комент, я в сети

Объяснение:

program n1;

   var

       x : integer;

   begin

       readln(x);

       if a <= 10 then begin

           x := x * 2;

           x := x + 5;

       end.

       else begin

           x := x * x;

           x := x + 8;

       end.

       writeln(x);

   end.