Написать программу, которая вычисляет произведение целых чисел от 1 до n. Число n запрашивается с клавиатуры. Pascal ABC

var  i,n:integer;  s:real;begin  Write('n= ');  Readln(n);  s:=1;  for i:=1 to n do s:=s*i;  Writeln('Произведение ',s);end.