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