Помогите доделать!!!

Question

Вот прога... ток туда нада ещо втулить чтоб она видавала только непарние коли! 
 
uses crt; 
 var 
 c: char; 
 s, n: integer; 
 begin 
 write('Вводимо послідовність '); 
 read(c); 
 while c <> '.' do begin 
 if odd(ord(c)) then begin 
 inc(s, ord(c)); 
 inc(n); 
 end; 
 read(c); 
 end; 
 writeln('sum: ', s, '; count: ', n); 
 end.

Вот прога... ток туда нада ещо втулить чтоб она видавала только непарние коди!

Наталья Антонова · Accepted Answer

Как я понял это паскаль, но что именно тебе нужно я не понял)

Юлия Кутейникова · Answer

uses crt; 
var 
c: char; 
s, ss, nn, n: integer; 
begin 
write('Вводимо послідовність '); 
read(c); 
while c <> '.' do begin 
if odd(ord(c)) then begin 
inc(s, ord(c)); 
inc(n); 
end 
else 
begin 
inc(ss, ord(c)); 
inc(nn); 
end; 
read(c); 
end; 
writeln('sum: ', s, '; count: ', n); 
writeln('sum: ', ss, '; count: ', nn); 
end.