25 lines
163 B
ObjectPascal

unit aa;
implementation
procedure aa1;
begin
dd
end;
procedure aa2;
begin
begin
aa
end;
end;
procedure aa3;
begin
begin
aa
end;
end;
end.