var a,s:integer;begins:=0;writeln('Введите числа');repeatreadln(a);if (a>9)and(a<99) thens:=s+a;until a=0;writeln(s);end.
var a,s:integer;
begin
s:=0;
writeln('Введите числа');
repeat
readln(a);
if (a>9)and(a<99) then
s:=s+a;
until a=0;
writeln(s);
end.