помогите с паскалем

помогите с паскалем,буду очень благодарен и перечислю 100К.
задачки легкие но чтото я не понимаю,а мозг у меня под вечер выключился.

1)вводится целое число,все цифры которых нет в этом числе-вывести на экран!

2)Написать программу по нахождению факториала числа через:
а)цикл for
б) цикл while do.

как я уже говорил-буду очень благодарен :beer:

Добавлено спустя 1 час 7 минут 19 секунд:
усе,задачка с факториалом уже не нужна
с числом по прежнему актуальна!!

Ну насчет первой задачки я не смогу написать) ибо у меня со словами и их операторами никогда "лады" не было.
Насчет других:
№3
program z1;
uses crt;
var f,s,fac: integer;
begin
clrscr;
writeln('введите факториал');
read(f);
s:=1;
fac:=1;
while s< f+1 do
begin
fac:=fac*s;
s:=s+1;
end;
writeln('факториал от ', f,'=',fac);
end.
№2
program z1;
uses crt;
var f,i,fac: integer;
begin
clrscr;
writeln('введите факториал');
read(f);
fac:=1;
i:=1;
for i:=1 to f do
fac:=fac*i;
writeln('факториал от ', f,'=',fac);
end.

Добавлено спустя 47 секунд:
Хех, пока писал с факториалом уже оказалась не нужна)
ладно щас найду старые конспекты и напишу

все равно спасибо,перечислю 50к

jamesbond333 писал(а):все равно спасибо,перечислю 50к

Я не для тебя делал а для себя) в данном случае я хоть вспомнил паскаль, денег мне не надо) позже, когда уже разберусь в делфи и с++ то буду требовать деньги с работодателей :grin:

усе,проблемка решена