Paskalis, for ciklas ir kaip sudėti viską.

program Ugiai;


    var i, x, ugis: integer;
begin
  WriteLn('Iveskite vaiku skaiciu');
  readln(x);
 
  for i:= 1 to 5 do begin
  writeln('Iveskite ugius');
  readln(ugis);
  end;
 

  Readln;
end.

Klausimas: Kaip reikia pavyzdziui kai vyks ciklas jam reikes ivesti 5 kintamuosius kurie issaugotu viename kintamajame ugis: Pvz: rasau ten 187, 185, 195, 157 ,168 ir kad veliau sakykime writeln(ugis) rodytu = 187+ 185 + 195 +157 +168=892.

program Ugiai;

    var i, x, ugis, sum: integer;
begin
  WriteLn('Iveskite vaiku skaiciu');
  readln(x);
sum:=0;
  for i:= 1 to x do begin
  writeln('Iveskite ugius');
  readln(ugis);
sum:= sum + ugis;
  end;
Writeln ('viso', sum);

  Readln;
end.

dekui