Question

Пожалуйста помогите Срочно!!! Дам 35 баллов!!

Answer 1

program s1;

var a,x:integer;

BEGIN

write('Введите переменную: ');

readln(a);

if a>9 then

x := a+8

else

 x:=a-8;

writeln('Значение x=', x);

END.