Объясните,пожалуйста
Ниже записан алгоритм. Укажите набольшее пятизначное число x, при вводе которого алгоритм печатает сначала 2, а потом 4.
var x, y, a, b: longint;
begin
a := 0;
b := 0;
readln(x);
while x > 0 do begin
y := x mod 10;
if y > 4 then a := a + 1;
if y < 7 then b := b + 1;
x := x div 10
end;
writeln(a);
writeln(b)
end.