Даны натуральное число 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 символов:
Ура!!!  Сегодня праздник!
Ура...  Сегодня праздник.