n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/del1.pas

21 строка312 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

//���� ��������� � �������������� PCU
uses
  del1_u, del1_u2;

procedure MyProc(y: integer);
begin
  writeln(y);
end;

procedure MyProc2(y: integer);
begin
  writeln(y*2);
end;

begin
  PrintEvent += MyProc;
  PrintEvent += MyProc2;
  PrintEvent += MyProc3;
  PrintEvent(20); //������� 20, 40, 60
  readln;
end.