Исправление ошибки в проге Опции

[Juhn]

Есть такая программа:
program chisla;
function sar(const a, b:integer):real;
begin
sar:=(a + b)/2;
end;

function num(var i1, i2:integer):integer;
var
i:integer;
begin
i:=0;
while i1<>0 do begin
inc(i);
i1:=i1 div 10;
end;

while i2<>0 do begin
inc(i);
i2:=i2 div 10;
end;

num:=i;

var
a, b:integer;
begin
repeat
writeln('Vvedite a'); readln(a);
writeln('Vvedite b'); readln(b);
until(a<b);
writeln('summa chisel:', (a+b));
writeln('srednee arifmeticheskoe:', sar(a,b):4);
writeln('kolichestvo cifr:', num(a,b));
readln;
end.

1.Ошибка в следующем, сумма и арифметическое считается правильно, а вот количество цифр почему - то пишется 1, а не 2, хотя написано writeln('kolichestvo cifr:', num(a,b)); Как сделать что бы выдавало кол-во цифр 2 ?
2. Не поможете разобраться с данными строками:
function sar(const a, b:integer):real;
function num(var i1, i2:integer):integer;

Какой тип к этим переменным присваевается ? реальный или переменный? а то в скобках например integer а за скобками ещё и real. Вообщем помогите как расписать эти строки.
Заранее спасибо.

[Juhn]

Странно у тебя вообще показывает количество цифр то 2, то 3, а у меня 1, интересно из - за чего одна и та же программа у всех по разному... вот в этом и загвоздка, это надо как - то подправить что бы было 2, не понимаю в чём тут ошибка

Сообщение отредактировано: Juhn - 15.01.2008 22:41

[compiler]

Juhn, а кто писал эту программу? сам?