Подсчитать сколько знаков препинания в заданном с клавиатуры тексте

var q: string; i,s: integer; begin readln(q); for i: =1 to length(q) do begin if (q[i]=',') or (q[i]='.') or (q[i]=': ') or (q[i]='; ') or (q[i]='! ') or (q[i]='? ') then s: =s+1; end; writeln(s); end.

 

если я забыл про какие то знаки препинания,то просто допиши их также как и остальные знаки)

Проводная связь — вид электросвязи; связь, при которой сообщения передаются по проводам посредством электрических сигналов. Противоположно беспроводной связи.

По проводной связи сообщения могут вводиться голосом и приниматься на слух (телефонная связь), в виде условных знаков или букв и цифр (телеграфная связь и передача данных), в виде неподвижных изображений — фотографий, рисунков, чертежей (факсимильная связь) или речи абонентов (видеотелефон) и подвижных (телевизионных) изображений[1].

Беспроводная вычислительная сеть — вычислительная сеть, основанная на беспроводном (без использования кабельной проводки) принципе, полностью соответствующая стандартам для обычных проводных сетей (например, Ethernet). В качестве носителя информации в таких сетях могут выступать радиоволны СВЧ-диапазона.

Const       n = 3;       m = 3; var       i, j: integer;       a, b: array[1..n, 1..m] of integer; begin       for i : = 1 to n do       begin               for j : = 1 to m do               begin                       a[i, j] : = random(20) - 10;                       write(a[i, j]: 3, ' ');               end;               writeln;       end;       writeln;             for i : = 1 to n do       begin               for j : = 1 to m do               begin                       if ((i + j) mod 2 = 1) and (a[i, j] < 0) then                               a[i, j] : = sqr(a[i, j]);                       write(a[i, j]: 4, ' ');               end;               writeln;       end; end.