Какой оператор написан без ошибок?

Решение:

Проанализируем каждый оператор:

• if a>b and a>c then writeln ('число, а, наибольшее'); — Некорректное использование логической операции and, обычно используется && или and в зависимости от языка. Также, если a больше b и c, то a является наибольшим, но сравнение может быть неполным.
• if x<=y then x:=x-y; y:=y-2 else x:=0; — Синтаксически неверно. Если условие истинно, выполняется x:=x-y; y:=y-2. После точки с запятой обычно идет одиночная команда или блок begin...end. Если условие ложно, выполняется x:=0.
• if (a>0) then begin a:=a-3; write(a), end, — Некорректная запись. Перед end не ставится запятая, и после end нет точки с запятой, если это конец блока.
• if x<0 then x:=x+1; else x:=x*2; — Этот оператор написан корректно. Есть условие, блок then с одной командой, и блок else с одной командой, разделенные точкой с запятой.

Ответ: if x<0 then x:=x+1; else x:=x*2;