blob: 9cfe65ba8db41ddfd215042d3dfee2ea2b13061f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
{ %norun }
unit tw10540;
{$mode objfpc}{$H+}
interface
function s(l: PChar; r: PPChar; rn: PInteger; var np: Integer; ll: Integer):Integer;
function x(M: PChar; N1, N2, L: PInteger; len: Integer): Integer;
implementation
uses Math;
function s(l: PChar; r: PPChar; rn: PInteger; var np: Integer; ll: Integer):Integer;
begin
end;
function x(M: PChar; N1, N2, L: PInteger; len: Integer): Integer;
begin
end;
end.
|
