1.Дано натуральное число.
а) найти произведение цифр числа.
б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры).
2.Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, при увеличении на 4 делятся на 5.
3.Из данного числа удалить все цифры А (А вводится с клавиатуры).
В Free Pascal.

uses Crt;Var   A,B:integer;   P:real;   C:boolean;BeginClrScr;Write('Введите натуральное число: ');ReadLn(B);Write('A = ');ReadLn(A);P:=1;C:=false;B:=Abs(B);While B>0 do   Begin   P:=P*(B mod 10);   if B mod 10 = A then C:=true;   B:=B div 10   End;WriteLn('P = ',P);if C then WriteLn('Не верно')else WriteLn('Верно');ReadLnEnd.uses Crt;Var   A:integer;BeginClrScr;For A:= 100 to 999 do    if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' ');ReadLn;End.uses Crt;Var   A,B,C:integer;BeginClrScr;Write('Введите натуральное число: ');ReadLn(B);Write('A = ');ReadLn(A);C:=0;While B<>0 do   Begin   if B mod 10 <> A then C:=C*10+B mod 10;   B:=B div 10;   End;While C<>0 do   Begin   B:=B*10+C mod 10;   C:=C div 10   End;WriteLn(B);ReadLn;End.