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