Ввести j значений в переменную R. Вычислить и выдать на печать сумму квадратов этих чисел.(Алгоритм) Ввести 55 значений в переменную T. Найти среднее арифметическое положительных чисел, квадрат суммы отрицательных чисел. Результат выдать на печать.(Алгоритм)

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

а столбчатая диаграмма

б график 

в ярусная диаграмма

г областная диаграмма

дкруговая диаграмма

t1 = s1/v1

t2 = s2/v2

v(sr) = (s1+s2)/(t1+t2)