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

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

end

end.

Что то на подобии этого

Написано на языке Pascal