Напишите программу, которая вычисляет сумму, среднее арифметическое и произведение первых 20 чисел.

Помогите пожалуйста. Буду очень благодарна!

program srednee_chisel;uses crt;var q,x,s:longint; a:real;begin clrscr;q:=1;for x:=1 to 20 do begins:=s+x;q:=q*x;writeln (q);end;a:=s/20;writeln ('Сумма', s:5);writeln ('Среднее арифметическое', a:5);writeln ('Произведение', q:6);readln; end.

Вынужден Вас огорчить, Ваша программа работает неверно

126241207205040403203628803628800399168004790016001932053504127894528020043100162004189184-288522240-898433024109641728-2102132736Сумма 210Среднее арифметическое 10.5Произведение-2102132736

Не говоря о величине, произведение натуральных чисел не может быть отрицательным.

program srednee_chisel;uses crt;var q,x,s:longint; a:real;begin clrscr;q:=1;for x:=1 to 20 do begins:=s+x;q:=q*x; end;a:=s/20;writeln ('Сумма', s:5);writeln ('Среднее арифметическое', a:5);writeln ('Произведение', q:6);readln; end.