20 lines
138 B
ObjectPascal
20 lines
138 B
ObjectPascal
|
|
||
|
|
unit unit4;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
procedure u4proc;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses unit5;
|
||
|
|
|
||
|
|
procedure u4proc;
|
||
|
|
begin
|
||
|
|
u5proc;
|
||
|
|
writeln('u4proc');
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
end.
|