Ввести три действительных числа 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.

Получилось немного сложнее, чем я ожидал. :)
Если что-то непонятно, пиши. :)