fork download
copy 
  1. program zdelol;
  2. var 
  3. 	a, b, c: array[1..4,1..4] of integer;
  4. begin
  5. 	//VVEL
  6. 	readln(a[1,1]);
  7. 	readln(a[1,2]);
  8. 	readln(a[1,3]);
  9. 	readln(a[1,4]);
  10. 	readln(a[2,1]);
  11. 	readln(a[2,2]);
  12. 	readln(a[2,3]);
  13. 	readln(a[2,4]);
  14. 	readln(a[3,1]);
  15. 	readln(a[3,2]);
  16. 	readln(a[3,3]);
  17. 	readln(a[3,4]);
  18. 	readln(a[4,1]);
  19. 	readln(a[4,2]);
  20. 	readln(a[4,3]);
  21. 	readln(a[4,4]);
  22.  
  23. 	readln(b[1,1]);
  24. 	readln(b[1,2]);
  25. 	readln(b[1,3]);
  26. 	readln(b[1,4]);
  27. 	readln(b[2,1]);
  28. 	readln(b[2,2]);
  29. 	readln(b[2,3]);
  30. 	readln(b[2,4]);
  31. 	readln(b[3,1]);
  32. 	readln(b[3,2]);
  33. 	readln(b[3,3]);
  34. 	readln(b[3,4]);
  35. 	readln(b[4,1]);
  36. 	readln(b[4,2]);
  37. 	readln(b[4,3]);
  38. 	readln(b[4,4]);
  39.  
  40. 	//VIVEL
  41. 	write(a[1,1]:3);
  42. 	write(a[1,2]:3);
  43. 	write(a[1,3]:3);
  44. 	writeln(a[1,4]:3);
  45. 	write(a[2,1]:3);
  46. 	write(a[2,2]:3);
  47. 	write(a[2,3]:3);
  48. 	writeln(a[2,4]:3);
  49. 	write(a[3,1]:3);
  50. 	write(a[3,2]:3);
  51. 	write(a[3,3]:3);
  52. 	writeln(a[3,4]:3);
  53. 	write(a[4,1]:3);
  54. 	write(a[4,2]:3);
  55. 	write(a[4,3]:3);
  56. 	writeln(a[4,4]:3);
  57. 	writeln;
  58.  
  59. 	write(b[1,1]:3);
  60. 	write(b[1,2]:3);
  61. 	write(b[1,3]:3);
  62. 	writeln(b[1,4]:3);
  63. 	write(b[2,1]:3);
  64. 	write(b[2,2]:3);
  65. 	write(b[2,3]:3);
  66. 	writeln(b[2,4]:3);
  67. 	write(b[3,1]:3);
  68. 	write(b[3,2]:3);
  69. 	write(b[3,3]:3);
  70. 	writeln(b[3,4]:3);
  71. 	write(b[4,1]:3);
  72. 	write(b[4,2]:3);
  73. 	write(b[4,3]:3);
  74. 	writeln(b[4,4]:3);
  75. 	writeln;
  76.  
  77. 	//POSCHITAL
  78. 	c[1,1]:=a[1,1]*b[1,1]+a[1,2]*b[2,1]+a[1,3]*b[3,1]+a[1,4]*b[4,1];
  79. 	c[1,2]:=a[1,1]*b[1,2]+a[1,2]*b[2,2]+a[1,3]*b[3,2]+a[1,4]*b[4,2];
  80. 	c[1,3]:=a[1,1]*b[1,3]+a[1,2]*b[2,3]+a[1,3]*b[3,3]+a[1,4]*b[4,3];
  81. 	c[1,4]:=a[1,1]*b[1,4]+a[1,2]*b[2,4]+a[1,3]*b[3,4]+a[1,4]*b[4,4];
  82. 	c[2,1]:=a[2,1]*b[1,1]+a[2,2]*b[2,1]+a[2,3]*b[3,1]+a[2,4]*b[4,1];
  83. 	c[2,2]:=a[2,1]*b[1,2]+a[2,2]*b[2,2]+a[2,3]*b[3,2]+a[2,4]*b[4,2];
  84. 	c[2,3]:=a[2,1]*b[1,3]+a[2,2]*b[2,3]+a[2,3]*b[3,3]+a[2,4]*b[4,3];
  85. 	c[2,4]:=a[2,1]*b[1,4]+a[2,2]*b[2,4]+a[2,3]*b[3,4]+a[2,4]*b[4,4];
  86. 	c[3,1]:=a[3,1]*b[1,1]+a[3,2]*b[2,1]+a[3,3]*b[3,1]+a[3,4]*b[4,1];
  87. 	c[3,2]:=a[3,1]*b[1,2]+a[3,2]*b[2,2]+a[3,3]*b[3,2]+a[3,4]*b[4,2];
  88. 	c[3,3]:=a[3,1]*b[1,3]+a[3,2]*b[2,3]+a[3,3]*b[3,3]+a[3,4]*b[4,3];
  89. 	c[3,4]:=a[3,1]*b[1,4]+a[3,2]*b[2,4]+a[3,3]*b[3,4]+a[3,4]*b[4,4];
  90. 	c[4,1]:=a[4,1]*b[1,1]+a[4,2]*b[2,1]+a[4,3]*b[3,1]+a[4,4]*b[4,1];
  91. 	c[4,2]:=a[4,1]*b[1,2]+a[4,2]*b[2,2]+a[4,3]*b[3,2]+a[4,4]*b[4,2];
  92. 	c[4,3]:=a[4,1]*b[1,3]+a[4,2]*b[2,3]+a[4,3]*b[3,3]+a[4,4]*b[4,3];
  93. 	c[4,4]:=a[4,1]*b[1,4]+a[4,2]*b[2,4]+a[4,3]*b[3,4]+a[4,4]*b[4,4];
  94.  
  95. 	//SNOVA VIVEL
  96. 	write(c[1,1]:4);
  97. 	write(c[1,2]:4);
  98. 	write(c[1,3]:4);
  99. 	writeln(c[1,4]:4);
  100. 	write(c[2,1]:4);
  101. 	write(c[2,2]:4);
  102. 	write(c[2,3]:4);
  103. 	writeln(c[2,4]:4);
  104. 	write(c[3,1]:4);
  105. 	write(c[3,2]:4);
  106. 	write(c[3,3]:4);
  107. 	writeln(c[3,4]:4);
  108. 	write(c[4,1]:4);
  109. 	write(c[4,2]:4);
  110. 	write(c[4,3]:4);
  111. 	writeln(c[4,4]:4);
  112. 	writeln;
  113.  
  114. 	//I SNOVA VIVIL
  115. 	write(c[1,1]:4);
  116. 	write(c[2,2]:4);
  117. 	write(c[3,3]:4);
  118. 	write(c[4,4]:4);
  119.  
  120. end.
Success #stdin #stdout 0s 236KB
comments (?)
stdin
copy 
6
4
1
5
4
2
8
6
0
4
2
3
6
5
4
9
1
2
6
4
6
2
6
5
0
5
9
1
0
2
5
6
2
stdout
copy 
  6  4  1  5
  4  2  8  6
  0  4  2  3
  6  5  4  9

  1  2  6  4
  6  2  6  5
  0  5  9  1
  0  2  5  6

  30  35  94  75
  16  64 138  70
  24  24  57  40
  36  60 147 107

  30  64  57 107
https://ideone.com/pvrbZe
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!