Question

Составить на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс

Answer 1

var a,b,c,min : integer;
begin
    write('Введите три числа через пробел и нажмите Enter: ');
    readln(a,b,c);
    if (a > b) then
        if (a > c) then
            min := c
        else
            min := b
    else
        if (b > c) then
            min := c
        else
            min := a;
    writeln('Минимальное число: ',min);
    readln;
end.