Дано число. Если оно больше 10, то вывести на консоль, если оно меньше 3, увеличить его на 11 и вывести на консоль, в остальных случаях уменьшить на 100. PascalABC

Program n1;var a: real;beginreadln(a);if a>10 then write(a)else if a<3 then write(a+11)else writeln(a-100); end.