Dennnhhhickk

Untitled

Oct 7th, 2016
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.86 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. const
  9. MAXIN = 10000;
  10.  
  11. var
  12. n, p, i, j, z, j1, j2, i1, i2: integer;
  13. s: string;
  14. a: array [1..MAXIN, 1..MAXIN] of integer;
  15.  
  16. begin
  17. readln(n);
  18.  
  19. for i := 1 to n do
  20. begin
  21. readln(s);
  22. j := 1;
  23. z := 1;
  24. while j <= length(s) do
  25. begin
  26. a[i][z] := strtoint(s[j]) * 10 + strtoint(s[j + 1]);
  27. inc(z);
  28. inc(j, 2);
  29. end;
  30. end;
  31.  
  32. i1 := 1;
  33. i2 := n;
  34. j1 := 1;
  35. j2 := n;
  36.  
  37. for p := 1 to n div 2 + 1 do
  38. begin
  39. for j := j1 to j2 do
  40. write(char(a[i1][j] + 96));
  41. dec(j2);
  42. for i := i1 to i2 do
  43. write(char(a[i][j2] + 96));
  44. dec(i2);
  45. for j := j2 downto j1 do
  46. write(char(a[i2][j] + 96));
  47. inc(j1);
  48. for i := i2 downto i1 do
  49. write(char(a[i][j1] + 96));
  50. inc(i1);
  51. end;
  52. readln;
  53. readln;
  54. end.
Advertisement
Add Comment
Please, Sign In to add comment