Program mencari luas dan volume

Program mencari luas segitiga sama kaki

uses crt;
var
   a,t:integer;
   luas:real;
begin
   clrscr;
      writeln('                     <ooooooooooooooooooooooooooooooooo>');
      writeln('                     <<<<<           Gufron Arafat           >>>>>');           
      writeln('                     <ooooooooooooooooooooooooooooooooo>');
      write('        =>   Alas                      : ');
      readln(a);
      write('        =>   Tinggi                    : ');
      readln(t);
      luas:=(a*t/2);
      writeln('        =>   luas segitiga sama kaki   :',luas:2:2);
   readln;
end.

Program mencari luas sisi balok

uses crt;

var
   p,l,t:integer;
   luas:real;
begin
   clrscr;
      writeln('                <oooooooooooooooooooooooooooooooo>');
      writeln('              <<<<<        Gufron Arafat       >>>>>');
      writeln('                <oooooooooooooooooooooooooooooooo>');
      write('      =>    Panjang          : ');
      readln(p);
      write('      =>    Tinggi           : ');
      readln(t);
      write('      =>    Lebar            : ');
      readln(l);
      luas:=2*p*l+2*p*t+2*l*t;
      writeln('      =>    Luas sisi balok  : ',luas:2:2);
   readln;
end.

Program mencari volume tabung

uses crt;

var

   r,t:integer;

   phi,volume:real;

begin

   clrscr;

      writeln('                <ooooooooooooooooooooooooooooooooo>');

      writeln('              <<<<<        Gufron Arafat        >>>>>');

      writeln('                <ooooooooooooooooooooooooooooooooo>');

      write('           =>   Phi           :');

      readln(phi);

      write('           =>   Jari-jari     :');

      readln(r);

      write('           =>   Tinggi        :');

      readln(t);

      volume:=(phi*r*r*t);

      writeln('           =>   Volume tabung  : ',volume:2:2);

   readln;

end.


                                       http://www.4shared.com/rar/l7a6HriP/tugas_3.html