Ответы и объяснения

2014-03-05T22:13:07+04:00
Var k,n,i:integer;
begin
readln(n, k);
for i:=1 to n do write(k);
readln;
end.