Представляю Вашему вниманию исходник на паскале теста по вводным словам.

program english;
uses crt;
var hh16,hh17,hh12,hh88,hh18,hh19,hh20,hh21,hh22,hh23,hh24,hh25,hh26,hh27:string;
hh15,hh13,hh14:string;
begin
textbackground(1); clrscr; textcolor(13);
writeln('в дополнение');
readln(hh12);
if hh12='in addition' then
writeln('наконец, в конце концов (2 words)')
else exit; readln(hh13);
if hh13='in the end, finally' then
writeln('дальше') else exit;
readln(hh14);
if hh14='futher' then
writeln('напротив') else exit;
readln(hh15);
if hh15='on the contrary' then
writeln('хуже всего') else exit; readln(hh27); if hh27='worst of all' then
writeln('короче говоря') else exit;readln(hh16);if hh16='in short' then
writeln('следовательно') else exit;readln(hh17);if hh17='consequently'
{['k)nsikw$e$ntli]} then
writeln('с другой стороны') else exit;readln(hh18);if hh18='on the other hand' then
writeln('к счастью') else exit;readln(hh19);if hh19='luckily' then
readln(hh20) else exit;;if hh20='fortunately' then {['f):t|nitli]}
writeln('Однако могут быть исключения.') else exit; readln(hh21);
if hh21='However, there may be a few exceptions.' then
writeln('Таким образом, это еще не вся история.')else exit;readln(hh22);
if hh22='Thus, that is not the whole story.' then
writeln('Другими словами, ты отказываешься мне помочь.') else exit;readln(hh23);
if hh23='In the other words, you refuse to help me.' then
writeln('Мой лучший друг, например, никогда, нигде не ездил на велосипеде.')
else exit;readln(hh24);
if hh24='My best friend, for instance, has never ridden a bike.' then
writeln('Искренне Ваш') else exit;readln(hh25);if hh25='Sincerely yours' then
writeln('Преданный Вам') else exit;readln(hh26);if hh26='Yours faithfully' then
writeln('С приветом') else exit;readln(hh27);if hh27='Love' then
writeln('      ') else exit;
writeln('GOOD SPIRITS TO WEAR!');
writeln('I AM PLEASED WITH YOUR ANSWER.');
readln;
end.