CONST A1='легкая категория';
A2='средняя категория'; Then
A3='тяжелая категория'; IF Writeln(A1)
A4='сверхтяжелая категория'; Else
var V: integer; Then
IF Writeln(A2)
BEGIN Else
write('введите вес спортсмена V='); Then
readln(v); IF Writeln(A3)
Else
IF V < 62 then writeln(A1)
else Writeln(A4)
IF V < 75 then writeln(A2) { вложенный условный оператор }
Else
IF V < 88 then writeln(A3) { вложенный условный оператор }
else writeln(A4);
writeln('Нажмите Enter'); readln;
END.