Program programma;
Uses crt;

var a,b,min: real;

Begin clrscr;
      write('Введите a = ');
      readln(a);
      write('Введите b = ');
      readln(b);
       if a>b then
       min:=b
       else
           begin
           if a           min:=a;
           if a=b then
           write('a и b равны');
           end;
       write('Min = ', min);
          
readln;
End.