24 lines
269 B
ObjectPascal
24 lines
269 B
ObjectPascal
|
|
uses
|
|
sec_unit{,PascalABCSystem};
|
|
|
|
//const max = 100;
|
|
|
|
var f : real;
|
|
//obj1 : tp;
|
|
|
|
begin
|
|
proc1;
|
|
proc2;
|
|
f := sin(3.14);
|
|
System.Console.WriteLine(f);
|
|
//writeln(max);
|
|
writeln(pi);
|
|
System.Console.Readline;
|
|
proc3(45);
|
|
proc3('program');
|
|
//obj1:=tp.create;
|
|
//obj1.proc;
|
|
|
|
end.
|