Program Pascal Mencari Luas

uses wincrt;
var
   a, b, l1, l2, l3, lt : real;
begin
  write ('Masukkan Panjang Sisi : ');
  readln (a);


  b:= 0.5*a;
  l1:= a*a;
  l2:= 0.5*b*a;
  l3:= 0.5*(3.14*b*b);
  lt:= l1+l2+l3;

  writeln ('Luas Bidang Persegi            : ',l1:2:2);
  writeln ('Luas Bidang Segitiga           : ',l2:2:2);
  writeln ('Luas Bidang Setengah Lingkaran : ',l3:2:2);
  writeln ('Luas Bidang Seluruhnya         : ',lt:2:2);
end.