Составьте программу, которая вводит с клавиатуры два числа a, b и определяет минимальное из них.
Program z1; var a,b:integer; begin writeln('Введите 2 числа:'); readln(a,b); if awrite('Меньшее число:',a); if bwrite('Меньшее число:',b); end.