Составьте программу для определения наименьшего из 2-х целых чисел. 

var a,b:integer;beginwriteln('Введите 1 число');readln(a);writeln('Введите 2 число');readln(b);if a>=b then writeln('Наименьшее число равняется ',b)else writeln('Наименьшее число равняется ',a);end.