Ответ: 3
Объяснение: Допустим, 123. Всё неправильно. Тогда 312. Если опять не сошлось, то остаётся только 231.
Program n_10;
var y, a, b, c, d: integer;
begin
writeln ('Нахождение наибольшей из четырёх величин');
write ('Введите a, b, с, d>>');
readln (a, b, c, d);
y:=a;
if (b>y) then y:=b;
if (c>y) then y:=c;
if (d>y) then y:=d;
writeln ('y=' , y)
end.