Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program list;
- var
- n : integer;
- str : string;
- begin
- readln(n);
- str := '';
- case n of
- 1 :
- str := 'shurup';
- 2 :
- str := 'gayka';
- 3 :
- str := 'vint';
- 4 :
- str := 'gvozd';
- 5 :
- str := 'bolt'
- end;
- writeln(str);
- readln
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement