TPW Program Perbandingan

program menghitung;

uses
   wincrt;

var
   b1, b2:string;
   p1, p2, l1, l2, luas1, luas2:integer;


begin
   write('Menghitung luas ');readln(b1);
   writeln('panjang ',b1, ' adalah ');readln(p1);
   writeln('Sedangkan lebar ',b1, 'adalah ');readln(l1);
   write('Menghitung luas ');readln(b2);
   writeln('Sisi bangun ',b2, ' adalah ');readln(p2);


   luas1:= p1 * l1;
   luas2:= p2 * p2;
 
   writeln('Jadi luas ',b1, ' adalah ',luas1);
   writeln('Sedangkan luas ',b2, ' adalah ',luas2);

   if (luas1 > luas2) then
     begin
       write('Jadi luas ',b1, ' lebih luas dari pada bangun ',b2);
     end
   else
     begin
        write('Jadi luas ',b2, ' lebih luas dari pada bangun ',b1);
     end

end.
NB: Mohon maaf bila ada kesalahan