Напишите программу которая вычисляет сумму первых n целых положительных чисел. количество суммируемых чисел должно выводиться во время работы программы. ниже представлен рекомендуемый вид экрана во время работы программы(данные введённые пользователем выделены полужирным шрифтом). вычисление суммы положительных чисел. введите количество суммируемых чисел--> 20. сумма первых 20 положительных чисел равна 210.​

Деревья в лесу или в парке, или одиноко стоящее дерево посреди поля - довольно распространённый объект рисования. Без дерева нельзя изобразить пейзаж или красивый фон, состоящий из леса. С первого взгляда дерево рисуется очень просто – есть ствол, ветви, листья, но на практике художник сталкивается с неожиданными трудностями и изобразить дерево становиться настоящей проблемой. На этом уроке мы попробуем научиться некоторым рисования деревьев.Будет весьма полезным для любого художника научиться рисовать различные деревья, различной сложности, различных видов и в разные времена года и погоды.Обучение на практике.Лучший изучить рисунок дерева – это рисовать их с натуры. Деревья с миллионами ветвей и миллионами подвижных листьев и их оттенков зелёного кидают настоящий вызов художнику.

Var a : array [1..3] of array [1..3] of integer;
     i,j : shortint;
     c1,c2,s1,s2 : integer;

begin
    a[1][1]:=-10;
    a[1][2]:=20;
    a[1][3]:=13;
    a[2][1]:=-22;
    a[2][2]:=11;
    a[2][3]:=-5;
    a[3][1]:=4;
    a[3][2]:=12;
    a[3][3]:=-8;
    s1:=0; s2:=0; c1:=0; c2:=0;
    for i:=1 to 3 do begin
         for j:=1 to 3 do begin
               if a[i][j]>0 then begin
                     s1:=s1+a[i][j];
                     inc (c1);
               end else begin
                     s2:=s2+a[i][j];
                     inc (c2);
               end;
         end;
    end;
    writeln (s1/c1:0:0);
    writeln (s2/c2:0:2);
end.