tmoddiv1.pp 245 B

123456789101112131415
  1. var j,k : integer;
  2. begin
  3. k:=4;
  4. if (k div 1 <> 4) then
  5. halt(1);
  6. j := k div 1;
  7. writeln(k div 1, ' ',j);
  8. if (k div 1 <> 4) or
  9. (j <> 4) then
  10. halt(1);
  11. if (k mod 1) <> 0 then
  12. halt(2);
  13. end.