Найдите минимальное из двух чисел a и b,

var a,b,c: integer;begin clrscr;write('Надо написать 1 число'); read(a);write('Надо написать 2 число'); read(b);if a<b then write('c=',a) else write('c=',b);end.