1)Даны два целых числа А и В (вводятся с клавиатуры, A<B). Найти и вывести все произведения целых чисел от А до В.   2)Найти сумму цифр целого числа А (вводится с клавиатуры).   3)Найти количество целых трехзначных чисел, произведение цифр которых равно N(вводится с клавиатуры).     составте программу на Паскале. НЕ ПИШИТЕ РЕШЕНИЯ С ИНТЕРНЕТА , Я ИХ САМА УЖЕ ПОСМОТРЕЛА, ВСЁ НЕ ТО

1) vara,b,i,n:integer;beginn:=1;readln(a);readln(b);

for i:=a to b don:=n*i;writeln(n);end.

2) 

varn,s:integer;beginread(n);

s:=0;repeats:=s+(n mod 10);n:=n div 10;until n=0;writeln (s);end.

3) 

varn,k,i:integer;beginread(n);for i:= 100 to 999 do beginif (i div 100)*((i div 10) mod 10)*(i mod 10)=n thenk:=k+1;end;writeln (k);end.