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

program zz1;var a, b, c, min:integer; //задаем переменныеbeginwrite(\'введите первое число \'); //вводим с клавиатуры первое числоread(a);write(\'введите второе число \');//вводим с клавиатуры второе числоread(b);write(\'введите третье число \');//вводим с клавиатуры третье числоread(c);min:=1000000; //задаем начальное значение для минимумаif (a < b)and(a < c) then min:=a; //проверяем, если первое число наименьшее, то записываем его в minif (b < c)and(b < a) then min:=b;//проверяем, если второе число наименьшее, то записываем его в minif (c < b)and(c < a) then min:=c;//проверяем, если третье число наименьшее, то записываем его в minwrite(\'минимальное среди трех заданных чисел = \', min); //выводим ответend.