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

A)  var s, i, n : integer; begin s: =0; readln(n); for i: = 1 to n do  s: =s+i; writeln(s); end. б) var s, i, n : integer; begin s: =0; readln(n); for i: = 1 to n do s: =s+(i*i); writeln(s); end. в) var s, i, n : integer; begin s: =0; readln(n); for i: = 1 to n do begin if (i mod 2 = 0) then s: =s+i; end; writeln(s); end. г) var s, i : integer; begin s: =0; for i: = 10 to 99 do s: =s+i; writeln(s); end.

Var a,t,s,zn,zn1: real; z,r,q1,q2,q3,qv1,qv2,qv3: integer; function kv(s: real): real; begina : = sqrt(s); kv : = a; end; procedure d(r: integer; var m,m1: real); var h: integer; begin h : = -26+r div 100*100; r : = (r-h) mod 10+7864; m: = r; m1 : = h; end; procedure rt(v1,v2,v3: integer; var n1,n2,n3: integer); beginif v2 > v3 then v1: = v1 + v2else v1 : = v1 + v3; n1: =v1; n2: = v2; n3: =v3; end; procedure rt2(v1,v2: integer; var n1,n2: integer); beginif (v1 mod 2 =0) and (v2 mod 2 = 0) then begin n1: = 0; n2: = 0; end else if (v1 mod 2 =0)then v1 : = v1 *5 else if(v2 mod 2 =0)then v2: = v2 * 5; n1: =v1; n2: = v2; end; function rr(a,b: integer): real; var c: integer; begin b : =b-2*a; if a < b then  rr: =b-a  else  rr: =a-2*b; end; beginr : =7974; writeln('введите площадь квадрата'); readln(s); t: = kv(s); writeln('сторона квадрата равна = ',t); d(r,zn,zn1); writeln('переменные a, b значение примут ',zn: 5, zn1: 5); writeln('ввести три числа a, b,c'); readln(q1,q2,q3); rt(q1,q2,q3,qv1,qv2,qv3); writeln('a, b, c получили значения',qv1: 4,qv2: 4,qv3: 4); writeln('ввести числа x, y'); readln(q1,q2); rt2(q1,q2,qv1,qv2); writeln('x, y получили значения',qv1: 4,qv2: 4); writeln('определяем, какое значение примет переменная c'); q1: =20; q2: =10; s: = rr(q1,q2); writeln('переменная c примет значение: ', s); end.