помощ по информатика

[silver_moon]

госпожата по информатика каза, че без да направим една определена задачка в програмата "Паскал" няма да ни уформи. Да, ма никой от групата неможе да я направи. Ще съм много благодарна на този, който помогне. Програмата трябва да изглежда така:
трябва да извежда числата от 1 до n (по условие n ще е 10)
в смисъл:
въвеждаме n
1
2
3
.....
10
и след като ги изведе до 10 отдолу трябва да изведе удвоеното n (до 20)
в смисъл
2
4
6
....
20

като променливи трябва да използваме n,i,k
където i са числата от 1 до 10, а к=2i

ако има нещо неясно по задачката казвайте да давам инфо

пп.пробвах какво ли не и не става и не става, най-често ми извежда 10 пъти числото 10

[terawatt]

С Паскал не съм се занимавал от повече от 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.