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

program zz1;

var a, b, c, min:integer; / /задаем переменные

begin

write ('введите первое число '); / /вводим с клавиатуры первое число

read (a);

write ('введите второе число '); //вводим с клавиатуры второе число

read (b);

write ('введите третье число '); //вводим с клавиатуры третье число

read (c);

min:=1000000; / /задаем начальное значение для минимума

if (a < b) and (a < c) then min:=a; / /проверяем, если первое число наименьшее, то записываем его в min

if (b < c) and (b < a) then min:=b; //проверяем, если второе число наименьшее, то записываем его в min

if (c < b) and (c < a) then min:=c; //проверяем, если третье число наименьшее, то записываем его в min

write ('минимальное среди трех заданных чисел = ', min); / /выводим ответ

end.