FreePascal.ru

Код: Выделить всё

begin
  if combobox1.itemindex=1 
  then drop_eff:= combobox2.ItemIndex+8
  else drop_eff:= combobox2.ItemIndex+2;
end;

Код: Выделить всё

program varparams;

Procedure test(input:integer; var output1, output2:integer);
begin
  output1:=input+6;
  output2:=input*2;
end;

var i,o1,o2:integer;
begin
  i:=7;
  test(i,o1,o2);
  writeln(o1);
  writeln(o2);
end.