с помощью интернета люди могут общаться друг с другом
Объяснение:
& - это ^. У меня он не ставится, но делает свои действия. У себя его ставьте!
Var p real;
begin
readln(p);
if (p>40) and (x<60) then writeln ('Первая категория');
if (p>61) and (x<75) then writeln ('Вторая категория');
if (p>76) and (x<100) then writeln ('Третья категория');
readln;
end,