program english;
uses crt;
var a1,a2,a3,a4,a5,a37,a6,a7,a8,a9,a10,a11,a0,aa,a12,a13,a,a14:string;
z,cc,cc1:string;
begin
textbackground(3); clrscr; textcolor(1);
writeln('Я потерял новую ручку, которую подарила мне тетя.'); readln(a);
if a='I have lost my new pen, which was a present from my aunt.' then
writeln('В Париже, который так привлекателен весной, летом слишком жарко.')
else exit; readln(a5);
if a5='Paris, which is so attractive in spring, is too hot in summer.' then
writeln('Он не видел писем, которые лежали на столе.')
else exit; readln(a6);
if a6='He did not see the letters which were lying on the table.' then
writeln('Ручка, которую я потерял, была подарком на день рождения.') else exit; readln(a7);
if a7='The pen I lost was a birthday present.' then readln(cc);
if cc='The pen which I lost was a birthday present.' then
writeln('В тот день, когда я окончу школу, мне исполнится семнадцать лет.') else exit; readln(a8);
if a8='The day when I finish school will be my seventeenth birthday.' then
writeln('Если я его увижу, я скажу ему об этом.')
else exit; readln(a9);
if a9='If I see him, I shall tell him about it.' then
writeln('После того как закончатся уроки, мы пойдем домой.')
else exit; readln(a10);
if a10='After the lessons are over, we shall go home.' then
writeln('Я скажу ему об этом, если я его увижу.') else exit;
readln(a12);
if a12='I shall tell him about it if I see him.' then
writeln('Мы пойдем домой, после того как закончатся уроки.') else exit; readln(a13);
if a13='We shall go home after the lessons are over.' then
writeln('Мой отец сказал, что я могу идти гулять.')
else exit; readln(z); if z='My father said that I could go out.' then
writeln('Учитель сказал нам, что занятия окончены.') else exit; readln(cc1);
if cc1='The teacher told us that the lessons were over.' then
writeln('      ') else exit;
writeln('GOOD SPIRITS TO WEAR!');
writeln('I AM PLEASED WITH YOUR ANSWER.');
readln;
end.