Найти сумму чисел. Числа ввести с клавиатуры. Написать программу

{программа в паскале}{находит сумму введенных чисел, конец последовательности - 0}var n, x: integer;  beginn:=0;repeatreadln(x);inc(n,x);until x=0;writeln ('сумма равна ', n);end.