Ввести целое число а и вывести сумму всех чисел от 1 до а ПАСКАЛЬ! Помогите пожалуйста (через WHILE......DO BEGIN )

Program ch ;

Var x:integer ;

BEGIN

X:=1;

While xl=7 Do(можешь выбрать другое число)

BEGIN

Write (x, ' ') /в' ' это пробел /

X:=x+1

End ;

END.