fpcsrc/tests/webtbs/tw3429.pp


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

uses uw3429;

var
  ok : byte;
begin
  if v=7 then
    begin
      ok:=ok or 1;
      writeln('ok1');
    end;
  if v='7' then
    begin
      ok:=ok or 2;
      writeln('ok2');
    end;
  writeln(v);
  if ok<>3 then
    halt(1);
end.