я вас прошу посчитайте с информатикой ​

Program ax;

var a,X:integer;

write ('введите a');

read(a);

X:=a*2;

if (X<10) then X:=X-5 else X:=X+6;

write (X);

end.