найти произведение всех натуральных чисел от 1 до 100 на языке pascal

На турбо паскале невозможно сделать этого, т.к. идет переполнение возможного лимита данных(real, longint). В идеале это должно выглядеть так:var a:real;i:byte;begina:=1;for i:=1 to 100 do begina:=a*i;end;writeln(a);end.