Дано натуральное число.Определить,какая цифра встречается в нём чаще-1 или 9.
Pascal

Можете inc расписать?

В каком смысле?

inc(one) это тоже самое, что one:=one+1;

Ну да, inc - инкремент. Принципиальной разницы не вижу. При большем желание даже можно записать как dec(x, -1)

varn, nine, one: integer;beginreadln(n);nine := 0;one := 0;while (n > 0) dobeginif (n mod 10 = 1) theninc(one)elseif (n mod 10 = 9) theninc(nine);n := n div 10;end;if (one = nine) thenwriteln('Равны')elseif (one > nine) thenwriteln('Единиц больше')elsewriteln('Девяток больше');end.

А вот так это можно написать на современном Паскале, но мало где этому учат:// PascalABC.Net 3.0, сборка 1066begin  var s:=ReadInteger('Введите натуральное число: ').ToString;  var k1:=s.Where(x->x='1').Count;  var k9:=s.Where(x->x='9').Count;  if k1>k9 then Writeln('Единиц больше')  else    if k9>k1 then Writeln('Девяток больше')    else Writeln('Единиц и девяток поровну')end.Тестовое решение:Введите натуральное число:  231192Единиц больше