1)  var  

num,one,two,three: integer;

begin  

 write('Введите трёхзначное число: ');

 readln(num);

 one := num div 100;

 two:= (num div 10) mod 10;

 three:= num mod 10;

 writeln('Произведение цифр трёхзначного числа: ', one*two*three);

end.

2) var  

num: integer;

begin  

 write('Введите число: ');

 readln(num);

 if (num mod 2 = 0) and (num < 100) then

 writeln('Число является чётным и двузначным ')

 else  

   writeln('Число не является чётным и двузначным ');

end.

3) var  

num,max: integer;

begin  

 num:=1;

 max:=0;

 while num <> 0 do

   begin

 write('Введите число: ');

 readln(num);

 if num > max then

   max:=num;

 end;

 writeln('Максимальное из введённых чисел: ', max);

end.