Определение ДНС провайдера из своей сети Проще всего это сделать, когда имеется сеть и выход в интернет, либо то же самое можно сделать от абонента, также обслуживающегося в вашей провайдерской сети. Для этих целей следуйте инструкции: запустите командную строку, нажав в меню «Пуск», затем «Выполнить» и набрав в строке CMD (строчными); в открывшемся окне командной строки наберите ipconfig/all; в отчете вы получите список DNS-адресов; полученные адреса можно физически прописать в настройках сети, в этом случае выход в сеть будет стабильно работать даже при сбоях автоматического обнаружения ДНС-серверов.
program P1;
var
s1 : string;
i : integer;
begin
write('Fraza: ');
read(s1);
for i := 1 to length(s1)-1 do
begin
if s1[i] = 'ш' then
s1[i] := 'х';
if s1[i] = 'Ш' then
s1[i] := 'Х';
end;
writeln('Resultat: ',s1);
readln;
readln;
end.