Паскаль 2 зада.

[sllh_111]

Здравствуйте, помогите исправить пару задачек, а то у меня голова уже совсем не варит

1)

  procedure ex_2;
begin
writeln('‚ўҐ¤ЁвҐ б㬬㠨 ба®Є ўЄ«*¤*: ');
readln(sum);
readln(srok);
if (sum>1000) and (sum<5000) then k:= 0.015;
if (sum>5000) and (sum<10000) then k:= 0.02;
if (sum>10000) then k:= 0.03;
begin
for i7:= 1 to srok do
k1:=k*sum+sum; end;
writeln('‘㬬* ўЄ«*¤* б **зЁб«Ґ**л¬Ё Їа®жҐ*в*¬Ё Ї® ЁбвҐзҐ*Ёо ба®Є*: ',k1:9:1 );
readkey;      end;

Программирование алгоритмов разветвляющейся структуры
1 Sum – сумма вклада, Srok – срок вклада. Рассчитать сумму вклада с начисленными процентами по истечению срока. При сумме вклада от 1 тыс. до 5 тыс. рублей процентная ставка составляет 1,5%, при сумме от 5 тыс. до 10 тыс. рублей – 2%, свыше 10 тыс. рублей – 3%.

немогу высчитать проценты, т.е. все работает, только надо как-нибудь зациклить вот это k1:=k*sum+sum;


2)

Множества
- Даны 3 множества Х1, Х2, Х3, содержащие целые числа из диапазона 1..100. Мощность каждого множества равна 10. Сформировать новое множество Y=(X1пX2) U (X1\X2).

как в нормальном виде выглядит Y=(X1пX2) U (X1\X2).

[sllh_111]

все сам решил, тему можно закрывать