Question

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

Answer 1

var
    a: real;

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