Я не понимаю, зачем делать условие a>b и b>a, если результат будет одним и тем же. Тем не менее, я сделал как было в условии:
program ggg;var a,b: integer;beginwriteln('введи длину и ширину прямоугольника');readln(a,b);if a>b thenwriteln('площадь прямоугольника - ', a*b);if b>a thenwriteln('площадь прямоугольника - ', a*b);end.