1)Ввести число N . Найти его фактериал. Использовать REPEART. (ЧЕРЕЗ While)
2)Вводить число с клавиатуры , пока не будет верно число 0.
Через Pascal пожалуйста!!!

1.var res,i,x:integer;beginread(x);i:=1;res:=1;while i<=x dobeginres=res*i;i:=i+1;end;write(res);end.2.var x:integer;beginx:=-1;while x<>0 read(x);end.