program english;
uses crt;
var a1,hh88,a2,a3,z,a4,a5,a37,a6,a7,a8,a9,a10,a11,a0,aa,a12,a13,a,a14:string;
begin
textbackground(1); clrscr; textcolor(13);
writeln('Мы отбыли в Японию в субботу, 5-го июня 1978.'); readln(a);
if a='We went to Japan on Saturday, the Fifth of June 1978.' then
writeln('Я открыл коробку, и Майкл взял сигару.')
else exit; readln(a5);
if a5='I opened the box, and Michael took out a cigar.' then
writeln('Я хотел бы стать врачом, но меня тошнит при виде крови. long')
else exit; readln(a6);
if a6='I had like to become a doctor, but I am sick at the sight of blood.' then
writeln('Никому не ясно, как это произошло.') else exit; readln(a7);
if a7='How this happened is not clear to anyone.' then
writeln('Вся беда в том, что я потерял его адресс.') else exit; readln(a8);
if a8='The trouble is that I have lost his address.' then
writeln('Рут не могла вспомнить, где она оставила фотоаппарат.')
else exit; readln(a9);
if a9='Ruth could not remember where she had left her camera.' then
writeln('Я не мог понять, что незнакомец пытается сказать.')
else exit; readln(a10);
if a10='I could not understand what the stranger was trying to say.' then
writeln('Где она оставила фотоаппарат, Рут не могла вспомнить.') else exit;
readln(a12);
if a12='Where she had left her camera, Ruth could not remember.' then
writeln('Что незнакомец пытается сказать, я не мог понять.') else exit; readln(a13);
if a13='What the stranger was trying to say, I could not understand.' then
writeln('Мы пошли к озеру, которое в этот момент было очень бурным.')
else exit; readln(z); if z='We went to the lake, which was very stormy that day.' then
writeln('      ') else exit;
writeln('GOOD SPIRITS TO WEAR!');
writeln('I AM PLEASED WITH YOUR ANSWER.');
readln;
end.