Var s: string;
i, z, n, a: integer;
begin
readln(a);
s := floattostr(a);
for i := 1 to length(s) do
begin
if (s[i] = '0') then inc(z);
if (s[i] = '9') then inc(n);
end;
writeln(z, ' ', n);
if (z > n) then writeln('"0" > "9"');
if (z < n) then writeln('"0" < "9"');
if ((z = 0) and (n = 0)) then writeln('"0" = "9" = 0!')
else if (z = n) then writeln('"0" = "9" = ', z);
end.
Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)