1fccb1e103
Исправлен ToString в write. Убраны параметры по умолчанию из метода расширения Print (пока это вызывает падение)
21 lines
250 B
ObjectPascal
21 lines
250 B
ObjectPascal
{function p: integer;
|
|
var l,m,n: integer;
|
|
begin
|
|
var i,j,k: integer;
|
|
yield j*dd;
|
|
yield i;
|
|
end;}
|
|
|
|
procedure q;
|
|
var l,m,n: integer;
|
|
kk,jj: real;
|
|
begin
|
|
var i,j,k,mmm: integer;
|
|
yield x111.x222+fff;
|
|
yield l*k;
|
|
yield i*n;
|
|
end;
|
|
|
|
begin
|
|
|
|
end. |