Даны 4 числа, найти наименьшее из них.(язык паскаль)

Program pr; Var a, b, c, d:integer; Begin Write('A='); Readln(a); Write('B='); Readln(b); Write('C='); Readln(c); Write('D='); Readln(d); if a