Помогите пожалуйста. Лучше срочноо

1) var x,y:real; begin write('x = '); readln(x); if ((x >= 0) AND (x <= 2)) then y:=1.5*x; if ((x > 2) AND (x <= 6)) then y:=3; if ((x > 6) AND (x <= 8)) then y:=-1.5*x+12; if ((x < 0) OR (x > 8)) then writeln ('Функция не существует в данной точке!!') else writeln('При x = ', x, ' функция принимает значение = ', y); end. 2) var x,y,z,min:real; begin write('Введите 1ое значение: '); readln(x); write('Введите 2ое значение: '); readln(y); write('Введите 3е значение: '); readln(z); min:=x; if (min > y) then min:=y; if (min > z) then min:=z; if (min = x) then x:=1; if (min = y) then y:=1; if (min = z) then z:=1; WRITELN; writeln('x = ',x ,', y = ',y ,', z = ',z); end.