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

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.