Transpos Matrik Sederhana | Free Pascal

Yah,, kembali lagi, sekarang pelatihan pascalnya adalah membuat Tranpos Matrik Sederhana.
Yak, saya rasa, dasar dasarnya sudah diberikan pada tutorial sebelumnya. Jika tidak mengerti harap baca tutorial sebelumnya di..

• http://cahya-putra.blogspot.com/2011/07/tutorial-sederhana-free-pascal.html
• http://cahya-putra.blogspot.com/2011/07/fungsi-jumlah-free-pascal-latihan.html

Hehe.. yak,, langsung saja ke TKP (kaya opera van java maksudnya)

Input

bilangan antara 1 - 100 yang disusun secara seperti ini
a b c
d e f
g h i

Output

Tranpos matrik dari bilangan yang dipilih. Maksdunya seperti ini :
a d g
b e h
c f i

Contoh Input

1 2 3
4 5 6
7 8 9

Contoh Output

1 4 7
2 5 8
3 6 9

Selamat Mencoba

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a, b, c, d, e, f, g, h, i : integer;
 
begin
   readln (a,b,c);
   readln (d,e,f);
   readln (g,h,i);
 
   writeln (a,' ',d,' ',g);
   writeln (b,' ',e,' ',h);
   writeln (c,' ',f,' ',i);
end.