программа нахождения min элемента среди 4 чисел

program ves; vari,min,ch:LongInt;beginreadln(ch);min:=ch;for i := 1 to 3 dobeginreadln(ch);if min>ch then min:=ch;end; writeln(min)end. пж отметь как лучший