Question

Составьте по блок схеме программу в pascal.

Answer 1

var f,i:integer;

begin

f:=1;

for i:=1 to 6 do f:=f*i;

write(f); end.