Составить на Паскале программу определения минимума из трёх чисел без использования логических операций. Программа должна иметь дружественный интерфейс (ввод данных осуществляться в режиме диалога).

var

a, b, c: integer;

begin

write ('a=') ;

readln (a) ;

write ('b=') ;

readln (b) ;

write ('c=') ;

readln (c) ;

if a < b then

if a < c then writeln (a, ' - меньшее')

else writeln (c, ' - меньшее')

else

if b < c then writeln (b, ' - меньшее')

else writeln (c, ' - меньшее') ;

end.