3# Stepen broja Until petlja

program while_petlja;
 uses crt;

  var
    i:integer;    // brojac
    max:integer;  // koliko puta mnozi
    broj:integer; // broj sa tastature
    proizvod:real; // stepen

  begin
   clrscr();
   //uneti neki broj i pomnoziti ga onoliko puta koliko zelis
   //unose se sledece promenjive broj i max
   writeln('********************************** Sumiranje brojeva *************************');
   writeln('Program za racunanje zeljenog stepena nekog broja ');
   writeln('Unesite broj za koji zelite da izracunate stepen');
   write('broj=');
   readln(broj);

   writeln();
   writeln('Koji stepen zelite da izracunate');
   write('max=');
   readln(max);

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

   i:=1;
   proizvod:=broj;
   repeat

       proizvod:=proizvod*broj;
       i:=i+1;
   until (i=max);

   //ispis proizvoda na ekran

   writeln('proizvod=',proizvod:10:0);
   writeln('Hvala pokusajte ponovo');

    readln();

  end.