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

Question

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

Answer 1

Var
    a: real;

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