Создать программу для вычисления площади прямоугольника ( если а> б) или площади треугольника (если б> а) паскаль

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.