program english;
uses crt;
var a1,a2,a3,a4,a5,a37,a6,a7,a8,a9,a10,a11,a0,aa,a12,a13,a,a14:string;
hh1,hh2,z,cc2,cc3,q1:string;
begin
textbackground(1); clrscr; textcolor(13);
writeln('подкова лошади'); readln(a);
if a='a horse|s shoe' then
writeln('подковы лошади')
else exit; readln(a5);
if a5='horses| shoes' then
writeln('часовая прогулка')
else exit; readln(a6);
if a6='an hour|s work' then
writeln('трехлетнее отсутствие') else exit; readln(a7);
if a7='three years| absence' then
writeln('минутное сомнение') else exit; readln(a8);
if a8='a moment|s hesitation' then
writeln('Я собираюсь пойти в булочную (в мясной магазин, к моей тете, к Смитам, к бабушке и дедушке, к Смиту и Брауну).')
else exit; readln(a9);
if a9='I am going to the baker|s (the butcher|s, my aunt|s, the Smiths|, my grandparents|, Smith and Brown|s).' then
writeln('Мы купили новую посуду: чашки, блюдца, тарелки, миски.')
else exit; readln(a10);
if a10='We bought some new crockery -- cups, saucers, plates, dishes.' then
writeln('Мне нужно кое-что из одежды -- пара рубашек, брюки и туфли.') else exit;
readln(a12);
if a12='I need some new clothes -- a couple of shirts, a pair of trousers, and shoes.' then
writeln('Фотоаппараты, бинокли, драгоценности, духи -- всевозможные дорогие товары были спрятаны в машине контрабандиста.')
else exit; readln(a13);
if a13='Cameras, binoculars, jewellery, perfume -- all sorts of expensive goods were hidden in the smuggler|s car.'
then writeln('Сьюзен оставила везде включенным свет -- еще один пример ее рассеянности.')
else exit; readln(z); if z='Susan had left all the lights on -- another example of her carelessness.' then
writeln('Мой дядя Джо -- он самый прекрасный пловец -- подарил школе кубок по плаванию.') else exit;
readln(cc2); if cc2='My uncle Joe -- he was himself an exellent swimmer -- gave a cup for swimming to the school.' then
writeln('Роджер Тойнби сидел совершенно прямо в своем кресле -- мертвый.') else exit;
readln(cc3); if cc3='Roger Toynbee was sitting up-right in his leather chair -- dead.' then
writeln('блюдца') else exit; readln(q1); if q1='saucers' then
writeln('      ') else exit;
writeln('GOOD SPIRITS TO WEAR!');
writeln('I AM PLEASED WITH YOUR ANSWER.');
readln;
end.