Дано действительное число…

Program NUmbers; var a,a3,a10,i: integer; begin a3: =1; a10: =1; writeln ('Daite chislo A'); readln (a); for i: =1 to 3 do a3: =a3*i; for i: =1 to 10 do a10: =a10*i; writeln ('Chisla: ',a3,',a10); readln; end._____________a10: =a10*i; — eto formula dlya n!