Даны натуральное число n, символы s1, s2, …, sn. Преобразовать последовательность s1, s2, …, sn заменив в ней: все восклицательные знаки точками.

const n=25;
var s:array[1..n] of char;
i:integer;
begin
writeln('Введите ',n,' символов:');
for i:=1 to n do read(s[i]);
for i:=1 to n do
 if s[i]='!' then s[i]:='.';
for i:=1 to n do write(s[i]);
writeln;
end.

Пример:
Введите 25 символов:
Ура!!!  Сегодня праздник!
Ура...  Сегодня праздник.