ifdemo.pp 201 B

12345678910111213
  1. program ifdemo;
  2. var
  3. a : integer = 0;
  4. begin
  5. if a=1 then
  6. Writeln('This should not be');
  7. if a=2 then
  8. Writeln('This should also not be')
  9. else
  10. Writeln('This should be OK');
  11. end.