Срочно Написать текст программа на языке Pascal, которая проверяет верно ли , что : 10l

Var     a: real; begin     readln(a);     writeln((10 < a) and (a < 30)); end.