19 lines
298 B
ObjectPascal
19 lines
298 B
ObjectPascal
//Ïðîöåäóðû ñ ïåðåìåííûì ÷èñëîì ïàðàìåòðîâ
|
|
|
|
procedure writeln(params args:array of object);
|
|
var i:integer;
|
|
begin
|
|
write('>');
|
|
for i:=0 to args.length-1 do
|
|
System.Console.Write(args[i]);
|
|
System.Console.WriteLine;
|
|
end;
|
|
|
|
var a:integer;
|
|
|
|
begin
|
|
a:=10;
|
|
Writeln('a=',a,';');
|
|
|
|
readln;
|
|
end. |