Составить программу, вычисляющую факториал числа n. (n! = 1·2·3·…·n) 3 цикла

//pascal abc.net v3.0 сборка 1111 //for var   i,n,r: integer; begin   readln(n);   r: =1;   for i: =1 to n do   r: =r*i;   write(r); end.//whilevar  i,n,r: integer; begin  readln(n);   r: =1;   i: =0;   while i< > n do  begin;     inc(i);     r: =r*i;   end;   write(r); end.//repeatvar  i,n,r: integer; begin  readln(n);   r: =1;   i: =0;   repeat    inc(i);     r: =r*i;   until n=i;   write(r); end.

пролететь - расстояние

проехать на лифте - номер этажа 

спрыгнуть - высота, скорость

поесть - количество

повернуть - время или направление