Строковый тип

[Ilya_Vydysh]

С клавиатуры вводятся символы до тех пор, пока не встретится конец предложения. Концом предложения считать символы : ! ?. Подсчитать количество введенных символов, отличных от пробела.

[Mad_Cat]

var c:char;k:integer;
begin
k:=0;
readln(c);
While not c in ['.', '!', '?'] do begin
if c<>' ' then inc(k);
readln(c);
end;
writeln(k); 
end.