fpcsrc/tests/test/trstr2.pp


1
2
3
4
5
6
7
8
9
10

var
  s: ansistring;
  i,j: integer;
begin
  s := '15 305';
  readstr(s,i,j);
  if (i <> 15) or
     (j <> 305) then
    halt(1);
end.