Var integer begin while. N=integer(1 + 0,25*п). var i n integer begin i= 1 while i=10. function fact(n: integer): integer;. обозначения integer var.