Advertisement
Andrey_Mironenko

Untitled

Dec 19th, 2013
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. Uses Crt;
  2.  
  3. var
  4. cmd: string;
  5. nxt: char;
  6.  
  7. begin
  8. repeat;
  9. readln(cmd);
  10. cmd:=Upcase(cmd);
  11. if NOT cmd[2]=':' then
  12. begin
  13. break;
  14. writeln('Incorrect command!');
  15. end
  16. else
  17. if NOT cmd[3]='\' then
  18. begin
  19. break;
  20. writeln('Incorrect command!');
  21. end
  22. else
  23. case cmd[1] of
  24. 'a':
  25. begin
  26.  
  27. end;
  28. 'b':
  29. begin
  30.  
  31. end;
  32. 'c':
  33. begin
  34.  
  35. end;
  36. 'd':
  37. begin
  38.  
  39. end;
  40. 'e':
  41. begin
  42.  
  43. end;
  44. 'f':
  45. begin
  46.  
  47. end;
  48. else
  49. begin
  50. break;
  51. writeln('Incorrect command!');
  52. end;
  53. end;
  54. Readln;
  55. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement