program banh_sinhnhat;

uses crt;

var t1,t2,t3:longint;

      d1,d2,d3:real;

function max(a,b,c:real):real;

begin

        max:=a;

        if b>max then max:=b;

        if c>max then max:=c;

end;

BEGIN

        clrscr;

        write('Nhap so tien chiec banh hinh tron: ');  readln(t1);

        write('Nhap dien tich chiec banh hinh tron: ');  readln(d1);

        d1:=d1/t1;

        write('Nhap so tien chiec banh hinh chu nhat: ');  readln(t2);

        write('Nhap dien tich chiec banh hinh chu nhat: ');  readln(d2);

        d2:=d2/t2;

        write('Nhap so tien chiec banh hinh vuong: ');  readln(t3);

        write('Nhap dien tich chiec banh hinh vuong: ');  readln(d3);

       d3:=d3/t3;

       if max(d1,d2,d3)=d1 then write('Nen mua banh hinh tron')

       else if max(d1,d2,d3)=de then write('Nen mua banh hinh chu nhat')

       else write('Nen mua banh hinh vuong');

       readln;

end.

uses crt; 
var a,b,c,a1,b1,c1,k:longint;
function max(a,b,c:longint):longint;
  begin
     max:=a; 
     if b>max then max:=b;
     if c>max then max:=c
  end;
begin
   clrscr;
   write('Nhap so tien loai banh hinh tron: ');readln(a);
   write('Nhap dien tich loai banh hinh tron: ');readln(a1);
   write('Nhap so tien loai banh hinh chu nhat: ');readln(b);
   write('Nhap dien tich loai banh chu nhat: ');readln(b1);
   write('Nhap so tien loai banh hinh vuong: ');readln(c);
   write('Nhap dien tich loai banh hinh vuong: ');readln(c1);
   k:=max(a1,b1,c1);
   if k=a1 then writeln('Can mua loai banh hinh tron, ton ',a,' dong') else
   if k=b1 then writeln('Can mua loai banh chu nhat, ton ',b,' dong') else
   writeln('Can mua loai hinh vuong, ton ',c,' dong');
readln;
end.