1. Написать программу, которая выводит произведение чисел от 1 до 13 (13!)

var  i:integer;  f:double;begin  f:=1;  for i:=1 to 13 do f:=f*i;  Writeln('13!=',f:0);end.Результат выполнения программы:13!=6227020800