Составьте программу, которая вводит с клавиатуры два числа a, b и определяет минимальное из них.

program z1;var a,b:integer;beginwriteln('Введите 2 числа:');readln(a,b);if a<b then write('Меньшее число:',a);if b<a then write('Меньшее число:',b);end.