Дано число если оно больше 10 вывести на консоль, если меньше увеличить на 11 и вывестир, в остальных уменьшить на 100

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