Помогите пожалуйста со 2 или 3 (на паскале). Буду очень благодарен. 8 класс

var i,k:integer;

begin;

k:=0;

for i:=1 to 6 do

k:=k+i;

writeln(k);

end.

Program Words;

var F, N, R: integer;

begin

write('Введите число букв');  

readln(N);  

F:=l;  

R:=1;

 while R<=N do  

begin

F:=F*R;  

R:=R+1  

end;

write (F);

end.