program HelloWorld;

var a,b: double;

begin

 writeln('Укажите A:'); 

 readln(a);

 writeln('Укажите B:'); 

 readln(b);

 if(a>b) then

 begin

 //вычисляем площадь прямоугольника

 end;

 if(a<b) then

 begin

 //вычисляем площадь треугольника

 end;

end.