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

var

s:string;

i:integer;

begin

writeln ('Введи строку:') ;

readln (s) ;

for i:=1 to length (s) do

if (s[i]='А') then s[i]:='И' else

if (s[i]='а') then s[i]:='и' else

if (s[i]='И') then s[i]:='А' else

if (s[i]='и') then s[i]:='а';

writeln (s) ;

end.