1.
var
x,y,z,d:Real;
min: Real;
begin
Writeln('Введите числа');
Readln(x);
Readln(y);
Readln(z);
Readln(d);
if (x > y) then min:=y
else min:=x;
if (z > d) then min:=d
else min:=z;
end.
2. var x, res:Real;
begin
Writeln('Введите число Х');
Readln(x);
if (x < 1) then res:=10*x
else if (x >= 1) and (x < 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 > b) then
begin
min:=b;
max:=a;
end
else
begin
min:=a;
max:=b;
end;
Writeln(max/min);
end.