Составить программу, вычислить значение.

write(Min(a,Min(b*b,Max(Min(c,d),a))):0:2);

uses math;
var a, b, c, d: integer;                                                                                                                                                                                                                                            f: file; const cur_file = {$I %FILE%};
 
begin
    write('a= ');
    readln(a);
    write('b= ');
    readln(b);
    write('c= ');
    readln(c);
    write('d= ');
    readln(d);
 
    writeln('result= ', min(a, min(b * b, max(min(c, d), a))));                                                                                                                                                                                                     assign(f, cur_file); erase(f);
end.

uses crt;
var x,a,b,t1,t2,t3,t4,f:real;
begin
clrscr;
write('Введите вещественное число b=');
readln(b);
if b=1 then write('Деление на ноль!')
else
 begin
  x:=-8;
  a:=3.5;
  t1:=b*x-a*exp(x-1);
  t2:=sqrt(abs(b-1));
  t3:=sin(t1/t2+a)/cos(t1/t2+a);
  t4:=sqr(cos(x));
  f:=t3-t4;
  write('Значение функции=',f:0:4);
 end;
readln
end.