Составить программу на языке Pascal.
Дано: а1, а2, а3, - производное.
Найти: min

у тебя однако короче

Спасибо.

program bit;var m,a1,a2,a3: integer;begin  writeln('введите три числа');  readln(a1,a2,a3);  if (a1<a2) and (a1<a3) then  m:=a1;  if (a2<a1) and (a2<a3) then  m:=a2;  if (a3<a1) and (a3<a2) then  m:=a3;  if (a1=a2) and (a1=a3)  then  writeln('они равны')  else writeln('меньшее из трёх ',m);end.