Question

Помогите составить программу

По данной схеме
ПАСКАЛЬ

Answer 1

Program n_1;

var A, x: real;

begin

   read(A);

   if (A>9) then x:=A+8 else x:=A-8;

   writeln(x);

end.

Answer 2

var

 A, x: integer;

begin

 read(A);

 if(A > 0) then

   x := A + 8

 else

   x := A - 8;

 write(x);

end.