Функция

[Андрей Коршов]

Program ak15;
function ravnat(var x,z:integer;rez,q,w:string):string;
begin
if x>z then str(x,q);str(z,w); rez:=q+'Bolhe'+w; ravnat:=rez;
if x<z then str(x,q);str(z,w); rez:=w+'Bolhe'+q; ravnat:=rez;
if x=z then str(x,q);str(z,w); rez:=q+'Rovno'+w; ravnat:=rez;
end;
var  a,s:integer;
     quit:string;
begin
 writeln ('vvedit 2 chisla');
 readln (a);readln(s);
 quit:=ravnat(a,s);
 writeln (quit);
 readln;

end.

В строчке quit:=ravnat(a,s); запрашует запятую после s Почему?



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[BDA]

Потому что у функции ravnat 5 аргументов.

[Serge_Bliznykov]

да и вообще эта функция неправильная!

вероятно, ожидалась такая функция:

function ravnat(x,z:integer):string;
var sx, sz : string;
begin
  str(x,sx);
  str(z,sz);
  if x>z then ravnat := sx+' Bolhe '+sz
  else
    if z>x then ravnat := sz+' Bolhe '+sx
    else { при x=z}
      ravnat := sx+' Rovno '+sz; 
end;