Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program N_63;
- const n = 4;
- const n1 = 3;
- var a:array [1..n] of integer;
- var b:array [1..n1] of integer;
- var k:integer;
- Begin
- read(k);
- for var i:=1 to n do read(a[i]);
- for var j:=1 to n1 do read (b[j]);
- for var i:=1 to n do
- begin
- write(a[i]);
- if i=k then
- begin
- for var j:=1 to n1 do write(b[j]);
- end;
- end;
- End.
Add Comment
Please, Sign In to add comment