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

Для прямоугольника. Площадь прямоугольника равно а*б.
program abc;
var a, b, S:integer;
begin
writeln ('Введите длины двух смежных сторон прямоугольника');
read (a, b);
S:=a*b;
writeln ('Площадь равна        ', S);
end.