Добавлено через 1 мин.
Код
program perevod;
uses crt;
var
s,s1:string;
i:integer;
j:char;
begin
write('введите текст на английском');
readln(s);
for i:=1 to length(s) do
begin
for j:='A' to 'z' do
begin
if s[i]=j then
begin
if s[i]='a' then
begin
s[i]:='Ф';
s1:=s1+s[i]
end;
If s[i]='A' then
begin
s[i]:='ф';
s1:=s1+s[i]
end;
If s[i]='b' then
begin
s[i]:='и';
s1:=s1+s[i]
end;
If s[i]='c' then
begin
s[i]:='с';
s1:=s1+s[i]
end;
If s[i]='d' then
begin
s[i]:='в';
s1:=s1+s[i]
end;
If s[i]='e' then
begin
s[i]:='у';
s1:=s1+s[i]
end;
If s[i]='f' then
begin
s[i]:='а';
s1:=s1+s[i]
end;
If s[i]='g' then
begin
s[i]:='п';
s1:=s1+s[i]
end;
If s[i]='h' then
begin
s[i]:='р';
s1:=s1+s[i]
end;
If s[i]='i' then
begin
s[i]:='ш';
s1:=s1+s[i]
end;
If s[i]='j' then
begin
s[i]:='о';
s1:=s1+s[i]
end;
If s[i]='k' then
begin
s[i]:='л';
s1:=s1+s[i]
end;
If s[i]='l' then
begin
s[i]:='д';
s1:=s1+s[i]
end;
If s[i]='m' then
begin
s[i]:='ь';
s1:=s1+s[i]
end;
If s[i]='n' then
begin
s[i]:='т';
s1:=s1+s[i]
end;
If s[i]='o' then
begin
s[i]:='щ';
s1:=s1+s[i]
end;
If s[i]='p' then
begin
s[i]:='з';
s1:=s1+s[i]
end;
If s[i]='q' then
begin
s[i]:='й';
s1:=s1+s[i]
end;
If s[i]='r' then
begin
s[i]:='к';
s1:=s1+s[i]
end;
If s[i]='s' then
begin
s[i]:='ы';
s1:=s1+s[i]
end;
If s[i]='t' then
begin
s[i]:='е';
s1:=s1+s[i]
end;
If s[i]='u' then
begin
s[i]:='г';
s1:=s1+s[i]
end;
If s[i]='v' then
begin
s[i]:='м';
s1:=s1+s[i]
end;
If s[i]='w' then
begin
s[i]:='ц';
s1:=s1+s[i]
end;
If s[i]='x' then
begin
s[i]:='ч';
s1:=s1+s[i]
end;
If s[i]='y' then
begin
s[i]:='у';
s1:=s1+s[i]
end;
If s[i]='z' then
begin
s[i]:='я';
s1:=s1+s[i]
end;
If s[i]='B' then
begin
s[i]:='И';
s1:=s1+s[i]
end;
If s[i]='C' then
begin
s[i]:='С';
s1:=s1+s[i]
end;
If s[i]='D' then
begin
s[i]:='В';
s1:=s1+s[i]
end;
If s[i]='E' then
begin
s[i]:='У';
s1:=s1+s[i]
end;
If s[i]='F' then
begin
s[i]:='А';
s1:=s1+s[i]
end;
If s[i]='G' then
begin
s[i]:='П';
s1:=s1+s[i]
end;
If s[i]='H' then
begin
s[i]:='Р';
s1:=s1+s[i]
end;
If s[i]='I' then
begin
s[i]:='Ш';
s1:=s1+s[i]
end;
If s[i]='K' then
begin
s[i]:='Л';
s1:=s1+s[i]
end;
If s[i]='L' then
begin
s[i]:='Д';
s1:=s1+s[i]
end;
If s[i]='M' then
begin
s[i]:='Ь';
s1:=s1+s[i]
end;
If s[i]='N' then
begin
s[i]:='Т';
s1:=s1+s[i]
end;
If s[i]='O' then
begin
s[i]:='Щ';
s1:=s1+s[i]
end;
If s[i]='P' then
begin
s[i]:='З';
s1:=s1+s[i]
end;
If s[i]='Q' then
begin
s[i]:='Й';
s1:=s1+s[i]
end;
If s[i]='R' then
begin
s[i]:='К';
s1:=s1+s[i]
end;
If s[i]='S' then
begin
s[i]:='Ы';
s1:=s1+s[i]
end;
If s[i]='T' then
begin
s[i]:='Е';
s1:=s1+s[i]
end;
If s[i]='U' then
begin
s[i]:='Г';
s1:=s1+s[i]
end;
If s[i]='V' then
begin
s[i]:='М';
s1:=s1+s[i]
end;
If s[i]='W' then
begin
s[i]:='Ц';
s1:=s1+s[i]
end;
If s[i]='X' then
begin
s[i]:='Ч';
s1:=s1+s[i]
end;
If s[i]='Y' then
begin
s[i]:='Н';
s1:=s1+s[i]
end;
If s[i]='Z' then
begin
s[i]:='Я';
s1:=s1+s[i]
end;
If s[i]='J' then
begin
s[i]:='О';
s1:=s1+s[i]
end;
If s[i]=' ' then
begin
s[i]:=' ';
s1:=s1+' '+s[i]
end;
end;
end;
end;
writeln(s1);
end.
uses crt;
var
s,s1:string;
i:integer;
j:char;
begin
write('введите текст на английском');
readln(s);
for i:=1 to length(s) do
begin
for j:='A' to 'z' do
begin
if s[i]=j then
begin
if s[i]='a' then
begin
s[i]:='Ф';
s1:=s1+s[i]
end;
If s[i]='A' then
begin
s[i]:='ф';
s1:=s1+s[i]
end;
If s[i]='b' then
begin
s[i]:='и';
s1:=s1+s[i]
end;
If s[i]='c' then
begin
s[i]:='с';
s1:=s1+s[i]
end;
If s[i]='d' then
begin
s[i]:='в';
s1:=s1+s[i]
end;
If s[i]='e' then
begin
s[i]:='у';
s1:=s1+s[i]
end;
If s[i]='f' then
begin
s[i]:='а';
s1:=s1+s[i]
end;
If s[i]='g' then
begin
s[i]:='п';
s1:=s1+s[i]
end;
If s[i]='h' then
begin
s[i]:='р';
s1:=s1+s[i]
end;
If s[i]='i' then
begin
s[i]:='ш';
s1:=s1+s[i]
end;
If s[i]='j' then
begin
s[i]:='о';
s1:=s1+s[i]
end;
If s[i]='k' then
begin
s[i]:='л';
s1:=s1+s[i]
end;
If s[i]='l' then
begin
s[i]:='д';
s1:=s1+s[i]
end;
If s[i]='m' then
begin
s[i]:='ь';
s1:=s1+s[i]
end;
If s[i]='n' then
begin
s[i]:='т';
s1:=s1+s[i]
end;
If s[i]='o' then
begin
s[i]:='щ';
s1:=s1+s[i]
end;
If s[i]='p' then
begin
s[i]:='з';
s1:=s1+s[i]
end;
If s[i]='q' then
begin
s[i]:='й';
s1:=s1+s[i]
end;
If s[i]='r' then
begin
s[i]:='к';
s1:=s1+s[i]
end;
If s[i]='s' then
begin
s[i]:='ы';
s1:=s1+s[i]
end;
If s[i]='t' then
begin
s[i]:='е';
s1:=s1+s[i]
end;
If s[i]='u' then
begin
s[i]:='г';
s1:=s1+s[i]
end;
If s[i]='v' then
begin
s[i]:='м';
s1:=s1+s[i]
end;
If s[i]='w' then
begin
s[i]:='ц';
s1:=s1+s[i]
end;
If s[i]='x' then
begin
s[i]:='ч';
s1:=s1+s[i]
end;
If s[i]='y' then
begin
s[i]:='у';
s1:=s1+s[i]
end;
If s[i]='z' then
begin
s[i]:='я';
s1:=s1+s[i]
end;
If s[i]='B' then
begin
s[i]:='И';
s1:=s1+s[i]
end;
If s[i]='C' then
begin
s[i]:='С';
s1:=s1+s[i]
end;
If s[i]='D' then
begin
s[i]:='В';
s1:=s1+s[i]
end;
If s[i]='E' then
begin
s[i]:='У';
s1:=s1+s[i]
end;
If s[i]='F' then
begin
s[i]:='А';
s1:=s1+s[i]
end;
If s[i]='G' then
begin
s[i]:='П';
s1:=s1+s[i]
end;
If s[i]='H' then
begin
s[i]:='Р';
s1:=s1+s[i]
end;
If s[i]='I' then
begin
s[i]:='Ш';
s1:=s1+s[i]
end;
If s[i]='K' then
begin
s[i]:='Л';
s1:=s1+s[i]
end;
If s[i]='L' then
begin
s[i]:='Д';
s1:=s1+s[i]
end;
If s[i]='M' then
begin
s[i]:='Ь';
s1:=s1+s[i]
end;
If s[i]='N' then
begin
s[i]:='Т';
s1:=s1+s[i]
end;
If s[i]='O' then
begin
s[i]:='Щ';
s1:=s1+s[i]
end;
If s[i]='P' then
begin
s[i]:='З';
s1:=s1+s[i]
end;
If s[i]='Q' then
begin
s[i]:='Й';
s1:=s1+s[i]
end;
If s[i]='R' then
begin
s[i]:='К';
s1:=s1+s[i]
end;
If s[i]='S' then
begin
s[i]:='Ы';
s1:=s1+s[i]
end;
If s[i]='T' then
begin
s[i]:='Е';
s1:=s1+s[i]
end;
If s[i]='U' then
begin
s[i]:='Г';
s1:=s1+s[i]
end;
If s[i]='V' then
begin
s[i]:='М';
s1:=s1+s[i]
end;
If s[i]='W' then
begin
s[i]:='Ц';
s1:=s1+s[i]
end;
If s[i]='X' then
begin
s[i]:='Ч';
s1:=s1+s[i]
end;
If s[i]='Y' then
begin
s[i]:='Н';
s1:=s1+s[i]
end;
If s[i]='Z' then
begin
s[i]:='Я';
s1:=s1+s[i]
end;
If s[i]='J' then
begin
s[i]:='О';
s1:=s1+s[i]
end;
If s[i]=' ' then
begin
s[i]:=' ';
s1:=s1+' '+s[i]
end;
end;
end;
end;
writeln(s1);
end.