program raf105;

var

 x,a,b: real;

begin

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

 readln(x);

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

 readln(a,b);

 if x < a

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

 if (x > a) and (x < b)

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

 if x > b

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

end.

PascalABC 3.4.2