fork download 
  1. program zdelol;
  2.  
  3. var
  4.   a11, a12, a13, a14: integer;
  5.   a21, a22, a23, a24: integer;
  6.   a31, a32, a33, a34: integer;
  7.   a41, a42, a43, a44: integer;
  8.  
  9.   b11, b12, b13, b14: integer;
  10.   b21, b22, b23, b24: integer;
  11.   b31, b32, b33, b34: integer;
  12.   b41, b42, b43, b44: integer;
  13.  
  14.   c11, c12, c13, c14: integer;
  15.   c21, c22, c23, c24: integer;
  16.   c31, c32, c33, c34: integer;
  17.   c41, c42, c43, c44: integer;
  18.  
  19. begin
  20.     //VVEL
  21.     readln(a11);
  22.     readln(a12);
  23.     readln(a13);
  24.     readln(a14);
  25.     readln(a21);
  26.     readln(a22);
  27.     readln(a23);
  28.     readln(a24);
  29.     readln(a31);
  30.     readln(a32);
  31.     readln(a33);
  32.     readln(a34);
  33.     readln(a41);
  34.     readln(a42);
  35.     readln(a43);
  36.     readln(a44);
  37.  
  38.     readln(b11);
  39.     readln(b12);
  40.     readln(b13);
  41.     readln(b14);
  42.     readln(b21);
  43.     readln(b22);
  44.     readln(b23);
  45.     readln(b24);
  46.     readln(b31);
  47.     readln(b32);
  48.     readln(b33);
  49.     readln(b34);
  50.     readln(b41);
  51.     readln(b42);
  52.     readln(b43);
  53.     readln(b44);
  54.  
  55.     //VIVEL
  56.     write(a11:4);
  57.     write(a12:4);
  58.     write(a13:4);
  59.     writeln(a14:4);
  60.     write(a21:4);
  61.     write(a22:4);
  62.     write(a23:4);
  63.     writeln(a24:4);
  64.     write(a31:4);
  65.     write(a32:4);
  66.     write(a33:4);
  67.     writeln(a34:4);
  68.     write(a41:4);
  69.     write(a42:4);
  70.     write(a43:4);
  71.     writeln(a44:4);
  72.     writeln;
  73.  
  74.  
  75.     write(b11:4);
  76.     write(b12:4);
  77.     write(b13:4);
  78.     writeln(b14:4);
  79.     write(b21:4);
  80.     write(b22:4);
  81.     write(b23:4);
  82.     writeln(b24:4);
  83.     write(b31:4);
  84.     write(b32:4);
  85.     write(b33:4);
  86.     writeln(b34:4);
  87.     write(b41:4);
  88.     write(b42:4);
  89.     write(b43:4);
  90.     writeln(b44:4);
  91.     writeln;
  92.  
  93.  
  94.     //POSCHITAL
  95.     c11 := a11*b11 + a12*b21 + a13*b31 + a14*b41;
  96.     c12 := a11*b12 + a12*b22 + a13*b32 + a14*b42;
  97.     c13 := a11*b13 + a12*b23 + a13*b33 + a14*b43;
  98.     c14 := a11*b14 + a12*b24 + a13*b34 + a14*b44;
  99.     c21 := a21*b11 + a22*b21 + a23*b31 + a24*b41;
  100.     c22 := a21*b12 + a22*b22 + a23*b32 + a24*b42;
  101.     c23 := a21*b13 + a22*b23 + a23*b33 + a24*b43;
  102.     c24 := a21*b14 + a22*b24 + a23*b34 + a24*b44;
  103.     c31 := a31*b11 + a32*b21 + a33*b31 + a34*b41;
  104.     c32 := a31*b12 + a32*b22 + a33*b32 + a34*b42;
  105.     c33 := a31*b13 + a32*b23 + a33*b33 + a34*b43;
  106.     c34 := a31*b14 + a32*b24 + a33*b34 + a34*b44;
  107.     c41 := a41*b11 + a42*b21 + a43*b31 + a44*b41;
  108.     c42 := a41*b12 + a42*b22 + a43*b32 + a44*b42;
  109.     c43 := a41*b13 + a42*b23 + a43*b33 + a44*b43;
  110.     c44 := a41*b14 + a42*b24 + a43*b34 + a44*b44;
  111.  
  112.     //SNOVA VIVEL
  113.     write(c11:4);
  114.     write(c12:4);
  115.     write(c13:4);
  116.     writeln(c14:4);
  117.     write(c21:4);
  118.     write(c22:4);
  119.     write(c23:4);
  120.     writeln(c24:4);
  121.     write(c31:4);
  122.     write(c32:4);
  123.     write(c33:4);
  124.     writeln(c34:4);
  125.     write(c41:4);
  126.     write(c42:4);
  127.     write(c43:4);
  128.     writeln(c44:4);
  129.     writeln;
  130.  
  131.  
  132.     //I SNOVA VIVIL
  133.     write(c11:4);
  134.     write(c22:4);
  135.     write(c33:4);
  136.     write(c44:4);
  137.  
  138. end.
Success #stdin #stdout 0s 280KB
comments (?)
stdin 
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 
   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/ZEifWo
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

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!