С помощью паскаля!

1.   Задано x.
Вычислить у(1 картинка):
2.    Даны действительные числа x,
y
(x≠y).
Меньшее из этих двух чисел заменить их
полусуммой, а большее - их удвоенным
произведением.
3.   Отредактируйте задачу zadacha3_11
так, чтобы при вводе
произвольного символа программа
выдавала ответ:
"Введена некорректная
арифметическая операция";
4.     Даны действительные числа х, у.
Получить:     max(x,y);                                              min(x,y);              max(x,y) и
min(x,y);

1)var x,y:real;beginwrite('Введите число ');readln(x);if x<3 then y:=x*x-5;if (x>=3) and (x<=7) then y:=x;if x>7 then y:=x-3;writeln(y)end.2)var x,y,s,p:real;beginreadln(x,y);s:=(x+y)/2;p:=2*x*y;if x<y then      begin          x:=s;      y:=p      end   else      begin         y:=s;         x:=p         end;writeln('x=',x,'; y=',y)end.3)var    a,b,s:real;   sim:char;   f:boolean;Beginf:=true;writeln('Введите два числа');readln(a,b);writeln('Введите знак операции');readln(sim);case sim of   '+': s:=a+b;   '-': s:=a-b;   '*': s:=a*b;   '/': s:=a/b   else f:=false   end;if f then writeln ('результат ',a,sim,b,' = ',s)     else writeln('Введена некорректная арифметическая операция')End.4)var x,y,min,max:real;Beginwriteln('Введите два числа');readln(x,y);if x<y then   begin      min:=x;      max:=y      end   else      begin         min:=y;         max:=x         end;writeln ('min=',min,'; max=',max,'; min+max=',min+max)End.