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

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