blob: 3aa1076610a063d7739b1e42b189280d34d916bf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
procedure ttt(i1:integer;s1:string[255];b1:byte;i2:integer;
i3:integer;i4:integer;c1:char;s2,s3,s4,s5:string[255]);
begin
if (i1 <> 1) or
(s1 <> 'test1') or
(b1 <> 1) or
(i2 <> 2) or
(i3 <> 3) or
(i4 <> 4) or
(c1 <> 'A') or
(s2 <> 'test2') or
(s3 <> 'test3') or
(s4 <> 'test4') or
(s5 <> 'test5') then
halt(1);
end;
begin
ttt(1,'test1',1,2,3,4,'A','test2','test3','test4','test5');
end.
|
