Ввести три действительных числа…

Program z1; varq,x,y,z,a,b,c,d,e: integer; w: real; beginwriteln ('Введите 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. Получилось немного сложнее, чем я ожидал. Если что-то непонятно, пиши.