Программирование / Лабораторные / ЭВТ-1-Паскаль / LABA4_1

program GSA;
{ Ќ ©вЁ б㬬г n-®© ЈагЇЇл: (3,5) (6,8,10) (11,13,15,17) (18,20,22,24,26) ...}
uses crt;
var i,t:longint; { ‚бЇ®¬®Ј вҐ«м­лҐ ЇҐаҐ¬Ґ­­лҐ }
    j:longint;   { Љ®«ЁзҐбвў® жЁда ў ЈагЇЇҐ }
    k:longint;   { ’ҐЄгй п жЁда  ў ЈагЇЇҐ }
    n:integer;   { Ќ®¬Ґа ЈагЇЇл }
    s:longint;   { ‘㬬  n ЈагЇЇл }
 BEGIN
clrscr;
textcolor(red);
writeln('Hг¦­® ­ ©вЁ б㬬г n-®© ЈагЇЇл:');
writeln('     (3,5) (6,8,10) (11,13,15,17) (18,20,22,24,26) ...');
textcolor(white);
write('‚ўҐ¤ЁвҐ ­®¬Ґа ЈагЇЇл ');
readln(n);
k:=3;
j:=1;
s:=0;
for i:=1  to n do    begin
 j:=j+1;
 for t:=1 to j do begin
                  if i=n then s:=s+k;
                  k:=k+2;
                  end;
 k:=k-1;
                    end;

writeln('‘㬬  = ',s);
readln;
 END.