1. составьте блок-схему алгоритма и программу для решения следующей . вычислить сумму чисел, которые вводятся с клавиатуры. признак окончания ввода – ввод числа 100

Решение во вложении.
 var a,s:integer;
begin
s:=0;
while a<>100 do begin
read(a);
s:=s+a;
end;
writeln(s);
end.