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

var a,b,c,min:integer;beginreadln (a,b,c);if (a<b) and (a<c) thenmin:=a;if (b<a) and (b<c) thenmin:=b;if (c<a) and (c<b) thenmin:=c;writeln (min);end.