Question

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

Answer 1

var a1,a2,a3,a4,a5:real;
u1,u2:boolean;
begin
writeln('Введите 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)
else
if u1 then writeln('a1*a2*a5=',a1*a2*a5)
else
if u2 then writeln('sr.arifm=',(a1+a2+a3+a4+a5)/5)
else writeln(2*a3,' ',2*a5);
end.