1. Найти наименьшее из трех введенных с клавиатуры чисел

2. Дано целое число N(>0) С операции деления нацело и взятия остатка от деления определить имеется ли в записи числа N цифра 2 если имеется то вывести True если нет то вывести False

нужно сделать с объяснением

1) Два варианта (для ввода всех сразу или по одному):

       1.1 По одному числу:

var

 a,b:integer;

begin

 readln(a);

 b:=a;

 readln(a);

 if b>a then b:=a;

 readln(a);

 if b>a then b:=a;

 writeln('min:',b);

end.

       1.2 Все сразу:

var

 a,b,c:integer;

begin

 readln(a,b,c);

 if a<=b then

   if a<c then

     writeln(a)

       else writeln(c)

       else  

         if b<c then

           writeln(b)

           else

             writeln(c);

end.

2)

var

 a:integer;

 flag:boolean;

begin

 flag:=false;

 readln(a);

 while a<>0 do

   begin

     if a mod 10 = 2 then

       flag:=true;

     a:=a div 10;

   end;

 writeln(flag);

end.