Как выполнить задачку!?

[Ken_Watanabe]

1) Дано 100 целых чисел от 1 до 50. Определить, сколько чисел, в десятичной записи которых есть 1 или 2.
2) Найти произведение цифр заданного четырехзначного числа
Помогите решить задачку
Код в делфи...

[Streletz]

Пока не с чем помогать? Наработки где? Самостоятельные попытки были?

[Stilet]

1)

var l,c:integer;s:string;
begin c:=0;
 for i:=1 to 100 do begin
  Readln(l); s:=IntToStr(l);
  if (pos('1',s)<>0) or  (pos('2',s)<>0) then inc(c);
 end; write(c); readln;
end;

2)

const i=1234;
var p:integer;
begin p:=1;
 while i>0 do begin p:=p*(i mod 10); i:=i div 10; end;write(p); readln;
end;

Идея ясна?