Question

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

Answer 1

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.


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