1.
var 
x,y,z,d:Real;
min: Real;
begin 
 Writeln(Введите числа); 
 Readln(x); 
 Readln(y); 
 Readln(z);
Readln(d); 
if (x gt; y) then min:=y
   else min:=x; 
if (z gt; d) then min:=d   
   else min:=z;
end.
2. var x, res:Real;
begin 
Writeln(Введите число Х); 
Readln(x); 
if (x lt; 1) then res:=10*x 
 else if (x gt;= 1) and (x lt; 3) then res:=15*(x*x) 
 else res:=2*x+1; 
Writeln(res);
end.
3. var a,b:Real;
min,max: Real;
begin  Writeln(Введите числа); 
 Readln(a); 
 Readln(b); 
 if (a gt; b) then    
   begin        
     min:=b; 
     max:=a;   
    end   
 else     
   begin       
     min:=a;       
     max:=b;   
    end;   
Writeln(max/min);
end.