1)ввести число n . найти его фактериал. использовать repeart. (через while) 2)вводить число с клавиатуры , пока не будет верно число 0. через pascal !

1.

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