1)
var x,y:real;
begin
write('x = ');
readln(x);
if ((x >= 0) AND (x <= 2)) then y:=1.5*x;<br>if ((x > 2) AND (x <= 6)) then y:=3;<br>if ((x > 6) AND (x <= 8)) then y:=-1.5*x+12;<br>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.