Cоставить программу,которая находит меньшее из трёх введённых чисел a,b,c и выводит его...

Question

Cоставить программу,которая находит меньшее из трёх введённых чисел a,b,c и выводит его на экран.
Помогите пожалуйсто)

Answer 1

Var a,b,c,min:integer;
begin
readln(a,b,c);
if a<=b then min :=a</span>
else min := b;
if cwriteln('Минимальное число = ',min);
end.