Составить программу, вычисляющую факториал числа 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.

qbasic

screen 7

input x

input y

input c

s=x+y/2*c

print "x+y/2*c="; s

end