1# Ispisi uneto ime x puta For, While, Repeat petlje

program ispis_imena_x_puta_for;
uses crt;
 var
   i:integer;
   ime:string;
   broj_puta:integer;

  //program koji brojevnu ocenu pretvara u opisnu

  begin
   clrscr();
   writeln('Program koji ispisuje uneto ime zeljeni broj puta');
   writeln('molim vas unesite neko ime');
    write('ime=');
    readln(ime);
   writeln('Molim vas unesite koliko zelite puta da ispisete ime na ekranu');
    write('broj_puta=');
    readln(broj_puta);
   // petlja koja ispisuje odredjen broj puta ime
    writeln('Ispis imena uz pomoc for petlje');
   for i:=1 to broj_puta do
    begin
writeln(i,'.',ime);
    end;
    writeln('Ispis imena uz pomoc while petlje');

    i:=1;
    while(i<=broj_puta) do
     begin
         writeln(i,'.',ime);
         i:=i+1;
     end;

     writeln('Ispis imena uz pomoc repeat petlje');
     i:=1;
     repeat
      begin
      writeln(i,'.',ime);
        i:=i+1;
      end
     until (i>broj_puta);
   readln();
 end.