Решите задачу на языке Paskal Дано 3 числа. Найти наименьшее из них.

Предыдущий
вопрос Следующий
вопрос

program MinNumber;

var
num1, num2, num3: Integer;

begin
writeln('Введите три числа:');
readln(num1, num2, num3);

if (num1 < num2) and (num1 < num3) then
writeln('Наименьшее число: ', num1)
else if (num2 < num3) then
writeln('Наименьшее число: ', num2)
else
writeln('Наименьшее число: ', num3);
end.