вы получите факториал 5! = 120.
var f, i:integer;beginf := 1;for i := 1 to 5 dof := f * i;writeln (f);end.