Var z,k:integer; begin writeln('zchislo: '); readln(z); writeln('povtori: '); readln(k); while k<>0 do begin k:=k-1; write(z); end; end.
Немного говнокода =)
не понял, откуда ты это выдрал?
Aleks1397 Писал сам, а что такое?
Var a,n,i:integer; begin write('Введите число a='); read(a); write('Скольrо раз вывести n='); read(n); for i:=1 to n do write(a,' '); end.