Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {Винарский Евгений 10_7}
- program t_10_7(input,output);
- const n=6;
- s=' ';
- var a: packed array [1..6] of char; c: char; i: integer;
- begin
- read(c);
- a:=s;
- i:=1;
- s[i]:=c;
- while(c<>'.') do
- begin
- s[i]:=c;
- i:=i+1;
- read(c);
- end;
- for i:=1 to 6 do
- write(s[i]);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement