2# Primer sume sa While ciklusom

program while_petlja;
 uses crt;

  var
    i:integer;    // brojac
    max:integer;  // koliko puta sabira
    broj:integer; // broj sa tastature
    suma:integer; // suma svih sabiranja

  begin
   clrscr();
   //uneti neki broj i sabrati ga onoliko puta koliko zelis
   //unose se sledece promenjive broj i max
   writeln('********************************** Sumiranje brojeva *************************');
   writeln('Program za sumiranje broja proizvoljan broj puta uz pomoc WHILE ciklusa ');
   writeln('Unesite broj koji zelite da sumirate');
   write('broj=');
   readln(broj);

   writeln();
   writeln('Koliko puta zelite da saberete uneti broj');
   write('max=');
   readln(max);

   writeln();
   writeln('********************************* Rezultat ********************************');

   i:=1;
  while (i<=max) do
   begin
       suma:=suma+broj;
       i:=i+1;
   end;

   //ispis sume na ekran

   writeln('suma=',suma);
   writeln('Hvala pokusajte ponovo');

    readln();

  end.