program zamena;
uses crt; //* Подключение модуля работы с экраном */
var s:string;
i:integer;
BEGIN
clrscr; //* Очистка экрана */
writeln(' Введите текст (не более 255 символов)');
readln(s);
for i:= 1 to length(s) do //* Цикл замены */
if s[i]='.' then s[i]:='@'; //* Символ'.' заменить на'@' */
writeln(s); //* Вывод измененного текста */
readln;
END.