Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Uses Crt;
- var
- cmd: string;
- nxt: char;
- begin
- repeat;
- readln(cmd);
- cmd:=Upcase(cmd);
- if NOT cmd[2]=':' then
- begin
- break;
- writeln('Incorrect command!');
- end
- else
- if NOT cmd[3]='\' then
- begin
- break;
- writeln('Incorrect command!');
- end
- else
- case cmd[1] of
- 'a':
- begin
- end;
- 'b':
- begin
- end;
- 'c':
- begin
- end;
- 'd':
- begin
- end;
- 'e':
- begin
- end;
- 'f':
- begin
- end;
- else
- begin
- break;
- writeln('Incorrect command!');
- end;
- end;
- Readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement