Найдите минимальное из двух чисел a и b,
Var a,b,c: integer; begin clrscr; write('Надо написать 1 число'); read(a); write('Надо написать 2 число'); read(b); if aend.