В результате выполнения программы Var i:integer; p:real; begin p:=1; for i:=1 to 3 do p:=p*i; writeln(p); на экран будет выведено число