fpcsrc/tests/webtbf/tw16022.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ %fail }

PROGRAM test;

{$mode objfpc}
var a,b: string;

begin
  a:= 'Test A';
  b:= 'B Test';
  system.insert(a,'ing',5);
  system.insert('H World','allo',2);
  system.insert('&B',b,2);
  writeln(a);
  writeln(b);
end.