в какой из трех весовых категориях будет выступать атлет имеющий вес

program raf105;

var

 x,a,b: real;

begin

 write('Введите вес атлета: ');

 readln(x);

 write('Введите границы весовых категорий (2 числа A и B): ');

 readln(a,b);

 if x lt; a

   then writeln('1-ая весовая категория');

 if (x gt; a) and (x lt; b)

   then writeln('2-ая весовая категория');

 if x gt; b

   then writeln('Третья весовая категория');

end.

PascalABC 3.4.2