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

program zz1;

var n, s:integer; / / задаем переменные целого типа

begin

s:=0; / / задаем начальное значение суммы

while s < = 30 do / / организуем цикл, пока сумма не станет больше тридцати

begin

read (n); / / вводим с терминала очередное число

s:=s + n; / / прибавляем введенное число к сумме

end;

write (' полученная сумма чисел = ', s); / / выводим ответ на экран

end.