tcase48_2.pp 188 B

123456789101112131415161718
  1. program test_program;
  2. uses
  3. tcase48;
  4. var
  5. i : integer;
  6. begin
  7. test_proc(i);
  8. if (i <> 1) then
  9. begin
  10. writeln('FAIL');
  11. halt(1);
  12. end
  13. else
  14. writeln('OK');
  15. end.