Даны два числа a и b найдите их среднее арифметическое(a+b)/2.если найденное значение превышает 15, вычислить и вывести на экран площадь прямоугольника со сторонами a и b

vara,b,sr_ar:real;beginwriteln('Введите числа a и b: ');readln(a,b);sr_ar:=(a+b)/2;if sr_ar>15 then writeln('Площадь равна ',a*b)elsewriteln('Среднее арифметическое этих чисел равен ',sr_ar);end.