С Паскал не съм се занимавал от повече от 10 години... Все пак горе долу сглобих нещо. Дано да ти е от полза. Само това К ми се оказа проблемно и не му намерих приложение, но поне програмата работи според повечето изисквания на "госпожата". Ти ще си го доизмислиш как да стане

program zad;
var k, n, i: integer;
begin
n:=10;
write ('vavedete n:'); readln(n);
for i:=1 to n do writeln(i);
writeln;
for i:=1 to n do writeln(2*i);
end.