Программирование / Лабораторные / ЭВТ-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.