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

program zz1;
var a, b, c, min:integer; //задаем переменные
begin
write(введите 1-ое число ); //вводим с клавиатуры первое число
read(a);
write(введите 2-ое число );//вводим с клавиатуры 2-ое число
read(b);
write(введите третье число );//вводим с клавиатуры третье число
read(c);
min:=1000000; //задаем начальное значение для минимума
if (a lt; b)and(a lt; c) then min:=a; //проверяем, если 1-ое число наименьшее, то записываем его в min
if (b lt; c)and(b lt; a) then min:=b;//проверяем, если 2-ое число меньшее, то записываем его в min
if (c lt; b)and(c lt; a) then min:=c;//проверяем, если третье число меньшее, то записываем его в min
write(малое среди 3-х данных чисел = , min); //выводим ответ
end.