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

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