С клавиатуры вводится строка. Заменить все русские буквы ** точки Pascal ABC

Question

С клавиатуры вводится строка. Заменить все русские буквы на точки Pascal ABC

Answer 1

var s:string;

i:integer;

BEGIN

readln(s);

for i:=1 to Length(s) do

if ((ord(s[i])>=1040) and (ord(s[i])

s[i]:='.';

writeln(s);

end.