PERKALIAN MATRIX (tamfan)

var b,k,bbb,kkk,mat:integer; a:array[1..100,1..100]of integer; z:array[1..100,1..100]of integer; begin writeln('masukkan jumlah baris matrix'); readln(b); writeln('masukkan jumlah kolom matrix'); readln(k); writeln('untuk matrix ke 1'); for bbb:=1 to b do begin writeln ('baris ke ',bbb); for kkk:= 1 to k do begin writeln ('kolom ke ',kkk); readln (a[bbb,kkk]); end; end; writeln('untuk matrix ke 2'); for bbb:=1 to b do begin writeln ('baris ke ',bbb); for kkk:= 1 to k do begin writeln ('kolom ke ',kkk); readln (z[bbb,kkk]); end; end; writeln('hasil penjumlahan kedua matrix adalah'); for bbb:=1 to b do begin for kkk:=1 to k do begin write(a[bbb,kkk]+z[bbb,kkk]); end; writeln; end; end.

Ini program faktorial

var a : longint;
function handsome(x:longint):longint;
  var i,j,k : longint;
  begin
   if x=0 then
    handsome:=1
   else
    handsome:=(x * handsome(x-1));
  end;


begin
 writeln ('Masukkan angka');
 readln (a);
 writeln (handsome(a));
end.

RESOURCE PACK UPDATE

UPDATE RESOURCE PACK

Please note that THE VERSION BEFORE WON'T WORK

Neo Custom resource pack now UPDATE
https://www.dropbox.com/s/cjwv0amkq42ntnh/NeoCustom.zip?dl=0

Neo Custom Update

what's new :
-added new music :
     -Liviu Hodor ft.Mona ~ Sweet Love
     -DJ Manian ~ Welcome to the Club
     -Touhou ~ Bad Apple
     -Owl City ~ When Can I See You Again ( Wreck It Ralph )
-Fixed Orange Stained Clay.
-Recolored stained clays.
https://www.dropbox.com/s/cjwv0amkq42ntnh/NeoCustom.zip?dl=0

This is faithful resource pack , i just fixed some clay colour and add music in stal , mellohi , and mall.
https://www.dropbox.com/s/cjwv0amkq42ntnh/NeoCustom.zip?dl=0