напишите в паскале пжл
Дано натуральное число. Определить какое из цифр встречается в этом числе чаще 0 или 9

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.Только я тут испугался аж: всё правильно, а не так пишет х) Если ввести число, начинающееся с нуля, то первые нули отбросятся:)