С поддержкою паскаля!1.   Задано x. Вычислить у(1 картина):2.    Даны

1)
var x,y:real;
begin
write('Введите число ');
readln(x);
if xlt;3 then y:=x*x-5;
if (xgt;=3) and (xlt;=7) then y:=x;
if xgt;7 then y:=x-3;
writeln(y)
end.

2)
var x,y,s,p:real;
begin
readln(x,y);
s:=(x+y)/2;
p:=2*x*y;
if xlt;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;
Begin
f:=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;
Begin
writeln('Введите два числа');
readln(x,y);
if xlt;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.