Ajuda Algoritimo Formula

[Milak]

Olá Galera

Não estou conseguindo faze esse 2 algorítimos de formulas , utilizando comando PARA-FAÇA.

Alguém Poderia me dar uma força.





@Edit 13 Acho que consegue.

Program Ex13;
var
y,x,n,cont,y2:integer;
Begin
writeln('Digite o valor de X:');
readln(x);
writeln('Digite o Valor de N:');
readln(n);
For cont:= 1 to n do
Begin
y:=y+cont;;
y2:=y2+x;

End;

writeln(y);
writeln('_');
writeln(y2);
End.

Abraço !