Составить программу, которая будет вычислять сумму чисел, введенных с терминала,до тех

program zz1;
var n, s:integer; // задаем переменные целого типа
begin
s:=0; // задаем начальное значение суммы
while s lt;= 30 do // организуем цикл, пока сумма не станет больше тридцати
begin
read(n); // вводим с терминала еще одно число
s:=s + n; // добавляем введенное число к сумме
end;
write( приобретенная сумма чисел = ,s); // выводим ответ на экран
end.