Не могу решить задачу Опции

[Gerc]

Почему не работает эта программа? Вроде простая...

program tre;
var a,b:real;
begin
writeln('Введите а');
readln(a);
writeln('Введите в');
readln(b);
if a>2 and b<7 then writeln('true') else writeln('false');
end.

[LOVE133]

Код

program tre;

var a,b:real;

begin

writeln('Введите а');

readln(a);

writeln('Введите в');

readln(b);

if (a>2) and (b<7) then writeln('true') else writeln('false');

end.

может вот так?

[Gerc]

Блин, точно...
Спасибо большое, как всегда какую-то мелочь упускаю...