Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.
1 байт = 8 бит
Переводим биты в байты: 200/8=25 байт в секунду
25*10=250 байт
тебе можуть зламати хакери і шахраї,а ще тебе ображатимуть :(