SkeptaProgrammer

Untitled

Dec 4th, 2016
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. Program N_63;
  2. const n = 4;
  3. const n1 = 3;
  4. var a:array [1..n] of integer;
  5. var b:array [1..n1] of integer;
  6. var k:integer;
  7. Begin
  8. read(k);
  9. for var i:=1 to n do read(a[i]);
  10. for var j:=1 to n1 do read (b[j]);
  11. for var i:=1 to n do
  12. begin
  13. write(a[i]);
  14. if i=k then
  15. begin
  16. for var j:=1 to n1 do write(b[j]);
  17. end;
  18. end;
  19. End.
Add Comment
Please, Sign In to add comment