найти произведение квадратов всех целых чисел от 10 до 20

Я вопрос могу добавить

ой

нет новерно

Я не вам

Вы читали кому я пишу ?

var Pr: Real; i: Integer;begin Pr := 1; for i := 10 to 20 do Pr := Pr * sqr(i); WriteLn(Pr);end.Т.к. произведение квадратов это очень большое (длинное) число, то в ответе будет выведено не само число.