Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает числа: a и b. Укажите наибольшее четырехзначное число x, при вводе которого алгоритм печатает сначала 5, а потом 7. var x, y, a, b: integer;
begin
a := 10;
b := 0;
readln(x);
while x > 0 do
begin
y := x mod 10;
x := x div 10;
if y b then
b := y;
end;
writeln(a);
writeln(b)
end.