Ask and answer as in the examples. Use the prompts in Ex. 3 and the expressions in Ex. 9a A: How about spaghetti tonight? B: Yuck! I hate it./Wow! That's great.

A: How about spaghetti tonight? — Как насчет спагетти сегодня вечером?
B: Yuck! I hate it. / Wow! That’s great. — Фи! Я ненавижу их. /Ух ты! Это круто.

ответ:
A: How about hamburgers tonight? — Как насчет гамбургеров сегодня вечером?
B: Ugh! I don’t like hamburgers./Wow! I love hamburgers. — Фу! Я не люблю гамбургеры/Ух ты! Я люблю гамбургеры.

USES Crt; LABEL R1,R2;
VAR  X: INTEGER;    M:CHAR; BEGIN
  R1:ClrScr;   WriteLn('ПРГ выводит оценки по математике, физике и химии');
  WriteLn('1.Вывод оценок по предметам');
  WriteLn('2.Выход');
  WriteLn('Введите номер пункта');  
  ReadLn (X);
  CASE X OF
  1: Begin
        ClrScr;          WriteLn(' По какому предмету Вы хотите увидеть оценки');         WriteLn(' М - математика');
        WriteLn(' Ф - физика');
        WriteLn(' Х - химия');
        ReadLn(M);
        CASE M OF
    'М','м':WriteLn('5 5 4 4 5 5 3 5 5 ');
    'Ф','ф':WriteLn('5 4 5 3 5 4 5 5 5 ');
    'Х','х':WriteLn('4 3 5 3 4 4 4 5 ');
        End;
      End;
  2: Begin
        WriteLn('Программа закончена');
        GoTo R2;
     End;
     Else
        WriteLn('Номер неверен'); ReadLn;
        GoTo R1;
  End;
 R2:End.