( ) (), . , , . : . , , , , . , , .
, . , (. ).
subprog :
program SubProgExample;
// subprog
procedure subprog; // ,
begin //
WriteLn('Bye');
end; //
begin
WriteLn('Hello');
subprog; // 1-
subprog; // 2-
subprog; // 3-
end.
Hello Bye.
(, , , -2) , . , . (, ) . , ( - , ).
. , ( , ), , , , , . .
. ( ) , . ( ).
program SubProgExample2;
// subprog
procedure subprog(Line: String); // ,
begin //
WriteLn(Line);
end; //
begin
WriteLn('Hello');
subprog('Good bye,'); // 1-
subprog('my love,'); // 2-
subprog('good bye!'); // 3-
end.
Line subprog , , .
, , , , , . , Line subprog , 'Good bye', . , , , .