Pascal ABC
var i,k,s,n:integer;
begin
k:=0;
s:=0;
for i:=1 to 80 do begin
readln(n);
if (n>9) and (n<100) and (n mod 2<>0) then begin s:=s+i; k:=k+1; end;
end;
writeln('количество ',k);
writeln('Сумма ',s);
end.
Pascal ABC
var i,k,s,n:integer;
begin
k:=0;
s:=0;
for i:=1 to 80 do begin
readln(n);
if (n>9) and (n<100) and (n mod 2<>0) then begin s:=s+i; k:=k+1; end;
end;
writeln('количество ',k);
writeln('Сумма ',s);
end.