Напишите программу, которая вычисляет сумму: а) первых n натуральных чисел б) квадраов первых n натуральных чисел в) всех четных чисел в диапозоне от 1 до n г) всех двухзначных чисел

Program d1lpxx10; uses crt; var i,n,sum4,sumkv,sum4et,sumdvy: integer; begin read(n); for i: =1 to n do sum4: =sum4+i; for i: =1 to n do sumkv: =sumkv+i*i; for i: =1 to n do if i mod 2=0 then sum4et: =sum4et+i; for i: =10 to 99 do sumdvy: =sumdvy+i; writeln('summa=',sum4,' summa kvadratov=',sumkv,' summa 4etnblx=',sum4et,' summa dvyzna4nblx=',sumdvy); end.

Var a: array [1..6] of integer;   i,p,s, max: integer; begin max : = a[i]; p: =1; s: =0;     for i: = 1 to 6 do      if a[i] > max then   max : = a[i]; //находим максимальный      if a[i] mod 2 = 0 then s: = s+ a[i]//находим сумму четных    else p: = p*a[i]; //находим произведение нечетных    writeln(max); //вывод максимального  writeln(s); //вывод суммы четных  writeln(p); // вывод произведения нечетных end.

                                                    письменный стол столешница                                                            тумба(2)                                                                                   ящик(3) адрес зелёного кубика: письменный стол, тумба (2), ящик (3), зеленый кубик.