Для пяти произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если первое, второе и пятое числа отрицательны, то выведите их произведение. Если третье и четвёртое числа больше100, то выведите среднее арифметическое всех пяти чисел. Если выполняются одновременно два перечисленных выше условия, то выведите на экран все пять чисел без изменения. Иначе, выведите третье и пятое числа, увеличив их в два раза.

var a1,a2,a3,a4,a5:real;u1,u2:boolean;beginwriteln('Введите 5 вещественных чисел');readln(a1,a2,a3,a4,a5);u1:=(a1<0) and (a2<0) and (a5<0);u2:=(a3>100) and (a4>100);if u1 and u2 then writeln(a1,' ',a2,' ',a3,' ',a4,' ',a5)elseif u1 then writeln('a1*a2*a5=',a1*a2*a5)elseif u2 then writeln('sr.arifm=',(a1+a2+a3+a4+a5)/5)else writeln(2*a3,' ',2*a5);end.