Решите пожалуйста.
4.Записать
на языке Паскаль алгоритм определения принадлежности точки x отрезку [a,b]. Значения x, a, b ввести с клавиатуры. Результат работы вывести на
экран.



5.Записать
на языке Паскаль алгоритм присваивания переменной y значения
наибольшей из трех величин a, b, c. Значения a, b, c ввести с
клавиатуры. Результат работы вывести на экран.

1)var a,b,x:real;beginwriteln('Введите a');readln(a);writeln('Введите b');readln(b);writeln('Введите х');readln(x);if (x>=a) and(x<=b)then writeln('Принадлежит')else writeln('Не принадлежит');end.2)var a,b,c,y:real;beginwriteln('Введите a');readln(a);writeln('Введите b');readln(b);writeln('Введите c');readln(c);if (a>=b) and(a>=c) then y:=aelse if (b>=a)and(b>=c) then y:=belse y:=c;writeln('y=',y);end.