Ответ:

program ves;  

const

A1=’легкая категория’;

A2=’средняя категория’;

var

s : integer;  

begin  

write(‘введите вес спортсмена = ‘);

readln(s);

if s<68 then writeln(A1) else writeln(A2);

end.

предпоследняя команда ( readln; ) не нужна