uses crt, var i,tekrar:integer; str:string; begin clrscr; writeln('karakteri giriniz='); readln(str); writeln('kaç kere tekrarlanacak='); readln(tekrar); for i=1 to tekrar do writeln(str); end.