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,
Это смотря что за редактор но стандартно должно идти так:
1)и текст
2)фигура
3)ластик
Тут нет правильного варианта т.к. входной поток должен иметь 3 значения а тут везде 4, но если результат ввода не важен то ответ 3