составить программу (while) вывода на печать суммы чисел от 1 до 10.

vara,s:integer;begina:=1;While a<=10 do     begin           s:=s+a;            a:=a+1;      end;writeln(s);end.