Даны натуральное число 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 символов:

Ура! Сегодня праздник!

Ура ... Сегодня праздник.