Скласти програму, вказану на фото.

var n,k,m1,m2,i:integer; begin readln(n,k); if (n3*k)  then writeln('Impossible')  else begin       m1:=n div k;       m2:=n mod k;       for i:=1 to m2 do write(m1+1:2);       for i:=m2+1 to k do write(m1:2);       end; writeln; end. Пример: 7 4  2 2 2 1