15 lines
146 B
ObjectPascal
15 lines
146 B
ObjectPascal
|
procedure p;
|
|||
|
|
|
|||
|
|
function Sum(a,b: integer): integer;
|
|||
|
|
begin
|
|||
|
|
var Sum := 0;
|
|||
|
|
Sum := 666;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
Assert(Sum(1,10)=0);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
p;
|
|||
|
|
end.
|