2015-12-28 14:25:15 +03:00
|
|
|
|
// Создание процедуры MyWriteln с переменным числом параметров
|
2015-05-14 22:35:07 +03:00
|
|
|
|
|
|
|
|
|
|
procedure MyWriteln(params args: array of object);
|
|
|
|
|
|
begin
|
|
|
|
|
|
foreach x: Object in args do
|
|
|
|
|
|
System.Console.Write(x);
|
|
|
|
|
|
System.Console.WriteLine;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
var
|
|
|
|
|
|
a: integer := 777;
|
|
|
|
|
|
b: boolean := True;
|
|
|
|
|
|
r: real := 3.1415;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
MyWriteln(a,' ',b,' ',r);
|
|
|
|
|
|
end.
|
