1. Составьте программу, которая во введенном с клави¬атуры слове заменит букву «А» на букву «И» и, наоборот, букву «И» на букву «А».

vars:string;i:integer;beginwriteln('Введи строку:');readln(s);for i:=1 to length(s) doif (s[i]='А')then  s[i]:='И' elseif (s[i]='а')then  s[i]:='и' elseif (s[i]='И')then  s[i]:='А' elseif (s[i]='и')then  s[i]:='а';writeln(s);end.