Даны четыре числа и надо вывести на экран наименьшее из них

var a, b, c: integer;begin readln(a, b, c); if a > b then begin if a > c then begin writeln(a) end else begin writeln(c) end end else begin if b > c then begin writeln(b) end else begin writeln(c) end endend.Что то на подобии этого