Ввести три действительных числа x, y, z . Вычислить q,w поформулам:q = max(x ⋅ y ⋅ z, 3⋅ z ⋅ x, 2⋅ (x + y + z));w = min(3⋅ x ⋅ y ⋅ z , q/ 2). Вычисленные значения выдать на печать

program z1; var q,x,y,z,a,b,c,d,e:integer; w:real; begin writeln('Введите x'); readln(x); writeln('Введите y'); readln(y); writeln('Введите z'); readln(z); a:=x*y*z; b:=3*z*x; c:=2*(x+y+z); d:=max(a,b); e:=max(b,c); q:=max(e,d); writeln('Максимум',q); w:=min(3*x*y*z,q/2); writeln('Минимум',w); end. Получилось немного сложнее, чем я ожидал. :) Если что-то непонятно, пиши. :)