Kode Rumus Luas Trapesium pada Pascal

Berikut kode rumus luas Trapesium pada bahasa pemrograman Pascal:
Gampang kok tinggal Ketik "KODE DI BAWAH INI":


Kode Berikut untuk Copy Paste :

uses crt;
var a,b,t,L:Real;
begin
clrscr;
write('Masukkan sisi atas trapesium(cm):'); readln(a);
write('Masukkan sisi bawah trapesium(cm):'); readln(b);
write('Masukkan tinggi trapesium(cm):'); readln(t);
L:=(a+b)/2*t;
writeln;
writeln('Luas Trapesium=',L:10:2,'cm2');
readln;
end.

Trus jalanin dech --> Run pada Turbo Pascal yang kalian punya.
Jika ada kesalahan tolong dikonfirmasi di web blog ini,.. hehehehe :D
Semoga bermanfaat