Люди помогите написать программы для Pascal очень срочно и очень нужно

Первая програмка:

program Num1;
uses Crt;
var n,i,Sum: integer;
begin
ClrScr;
writeln('Введите n');
Read(n);
Sum:=0;
for i:=1 to n do Sum:=Sum+i;
write ('Сумма: ');
writeLn(Sum);
end.

Вторая програмка:

program Num2;
uses Crt;
var n,i,Sum,cnt: integer;
begin
ClrScr;
writeln('Введите n');
Read(n);
Sum:=0;
Cnt:=0;
for i:=1 to n do
begin
if i mod 3=0 then
begin
Sum:=Sum+i;
inc(cnt);
end;
end;
write ('Сумма: ');
writeLn(Sum);
write('Количество символов: ');
writeLn(cnt);
end.

Программисты обычно не любят, когда люди хотят что-то от них узнать, но не выучить, по одной простой причине: если поможешь однажды, потом прицепится и будет снова и снова просить сделать одно и то же. Поэтому, если хочешь, чтобы тебе помогли - покажи, что ты хочешь сделать это сама, но у тебя не получается. Прочти учебник (или что там у вас) и напиши сколько сможешь, выложи что написала здесь - и тебе помогут, это точно. Программисты любят учить новичков, потому что если один раз научить, больше спрашивать не будут.
П. С. Программы очень простые, в 3-4 строчки каждая (не учитывая всяких begin/end). У тебя все получится! Удачи!

Ну и в чем проблема?
1) Берешь цикл от 1 до n и складываешь. Хотя где-то вроде формула для суммы арифметической прогрессии была, можешь воспользоваться ей.
2) То же самое только проверяешь перед суммой остаток через div и считаешь через счетчик.
Достаточно открыть учебник и прочитать про циклы и ветвления. Ничего сложного в этом нет.

Массивы...