bagaimana rumus turbo pascal?

Menentukan Luas Trapesium

Program Luas_Trapesium;
Uses crt;
Var
sisi_a,sisi_b,tinggi,luas:real;
Begin
clrscr;
write (‘masukkan sisi a:’);
readln (sisi_a);
write(‘masukkan sisi b:’);
readln(sisi_b);
write (‘masukkan tinggi:’);
readln(tinggi);
Luas:=(sisi_a+sisi_b)/2*tinggi;
writeln(‘Luas Trapesium adalah:’,Luas:8:2);
readln;
end.

Menentukan Volume Bola

Program Volume_Bola;
Uses crt;
Var
jari_jari,volume:real;
Begin
clrscr;
write (‘masukkan jari-jari:’);
readln (jari_jari);
volume:=jari_jari*jari_jari*4/3*pi;
writeln(‘Volume Bola adalah:’,volume:8:2);
readln;
end.

Mencari Luas dan Keliling Lingkaran

Program Luas_dan_Keliling_Lingkaran;
uses wincrt;
const
phi=3.142857;
var r, Luas, Keliling:real;
begin
write ('masukkan jari-jari lingkaran: ');readln(r);
Luas:=(phi*r*r);
Keliling:=(phi*2*r);

writeln ('luas:', Luas:10:3);
writeln ('keliling:', Keliling:10:3);
end.

Luas Segitiga

program luas_segitiga;
Uses wincrt;
Var
pjg, lbr, als, tg, NomorMenu:Integer;
l_persegi, l_segitiga, kll_segitiga, kll_persegi:integer;
Begin
clrscr;
writeln('rumus luas segitiga');
write('masukan alas segitiga: '); readln(als);
write('masukan tinggi segitiga: '); readln(tg);
l_segitiga:= als*tg div 2;
writeln('luas segitiga adalah ',l_segitiga);
readln;
end.

Luas Segi Empat

Program luas_segi_empat;
uses wincrt;
var
panjang:integer;
lebar:integer;
luas:integer;
Begin
writeln('panjangnya');
readln(panjang);
writeln('lebarnya');
readln(lebar);
luas:=panjang*lebar;
writeln('luas segi4=',luas);
End.
Jenis Akar Persamaan (1)

program jenis_akar_persamaan_1;
uses wincrt;
var
   a,b,c,x,x1,x2,D : real;
begin
     writeln ('berapa a?'); read (a);
     writeln ('berapa b?'); read (b);
     writeln ('berapa c?'); read (c);
     D:=b*b-4*a*c   ;
     if D=0 then
     begin
     x:= -b/(2*a);            
     write ('akar-akarnya real kembar yaitu ',x);
     end else
     if D>0 then
     begin
     x1:= (-b + sqrt(D))/(2*a);
     x2:= (-b - sqrt(D))/(2*a);
     writeln('akarnya real berbeda yaitu x1= ',x1:0:0);
     writeln('x2= ',x2:0:0);
     end else
     begin
     writeln('akarnya tidak real yaitu ');
     end;