Две задачи в паскале
1) Подсчитать сумму вводимых с клавиатуры чисел до числа большего 11.
2) подсчитать сумму вводимых с клавиатуры чисел до числа не равного 7.

var k,a:integer;

begin

read(k);

while(k<=11)do begin

a:=a+k;

read(k);

end;

write(a);

end.

//2 задача

var k,a:integer;

begin

read(k);

while(k<>7)do begin

a:=a+k;

read(k);

end;

write(a);

end.