Напишите программу которая выводит ** экран :min (a,b)min-минимальное значениеПо теме...

Question

Напишите программу которая выводит на экран :min (a,b)
min-минимальное значение
По теме программы паскаль точнее турбо паскаль

Answer 1

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.