Free Pascal Uždavinys.Gal kas paaiškins? :)

Bandau išpresti šį uždavinį, bet niekaip nesuprantu kaip padaryti kad rodytų pirmosios eiles kedžių kiekį toks koks jis yra , o ne padidntas 2.

Uždavinys : "Architektas suprojektavo salę, kurioje bus n eilių. Pirmoje eilėje stovės k kėdžių, o kiekvienoje kitoje eilėje 2 kėdėmis daugiau,negu prieš tai buvusioje. Parašykite programą kuri apskaičiuotų, kiek iš viso kėdžių s reikia užsakyti, kad architekto sumanymas būtų įgyvendintas.(kai n=3, o k=8 tai s=30 kėdžių)"

Sumasčiau tik tiek, bet pirmajai eilei rašo 10 nors turėtu išvest 8.

program kedes;
   var n, k, s, i : integer;
begin
 Write('Įveskite kiek bus eilių: '); ReadLn(n);
 Write ('Įveskite kiek kėdžių bus pirmoje eilėje: '); ReadLn(k);
 for i:=1 to n do
   begin
       k:=k+2;
       WriteLn (i,' eileje: ', k ,' kedziu');
   end;


 Readln;
end.

 

 

       k:=k+2;
       WriteLn (i,' eileje: ', k ,' kedziu');

Šituos du apkeisk vietom, t.y. kad pirma išvestų, o paskui pridėtų. Arba gali prieš for ciklą atimti 2 iš k

program kedes;
   var n, k, s, i : integer;
begin
 Write('iveskite kiek bus eiliu: '); ReadLn(n);
 Write ('iveskite kiek kedziu bus pirmoje eileje: '); ReadLn(k);
 for i:=1 to n do
   begin
       if i > 1 then k:=k+2;
       WriteLn (i,' eileje: ', k ,' kedziu');
   end;


 Readln;
end.

Per daug negalvodamas tiesiog pridėčiau if

Dėkui, supratau jau savo klaidą. O kaip dabar padaryt kad visų eilių kėdes sudėtu ir išvestų?

program kedes;
   var n, k, s, i : integer;
begin
 Write('iveskite kiek bus eiliu: '); ReadLn(n);
 Write ('iveskite kiek kedziu bus pirmoje eileje: '); ReadLn(k);
 s:=0;
 for i:=1 to n do
   begin
       s:=s+k;
       WriteLn (i,' eileje: ', k ,' kedziu');
       k:=k+2;
   end;
   writeln('Is viso reiks kedziu ', s);


 Readln;
end.

Dėkui :)