Даны 3 числа a,b и c .Составьте программку которая инспектирует исполненье

Program yslovie;
var a,b,c:real;
begin
Writeln('Введите а');Readln(a);
Writeln('Введите b');Readln(b);
Writeln('Введите c');Readln(c);
if (bgt;a) and (blt;c) then Writeln('Условие производится, ',a,'lt;',b,'lt;',c)
else Writeln('Условие не выполняется')
end.