[lxa85]

Cтуденчество, совсем думать обленилось!

Исправленная версия

Код:

Uses Crt;
Var a, b, y, z: Integer;
  begin
// инициализация переменных
     TextBackGround(1); 
     a:=0; b:=0; y:=0; z:=0;
     ClrScr;
//запрашиваем первый ввод
     Writeln ('?'); Writeln (''); Writeln ('10'); Writeln ('20'); Writeln ('');
     Readln (y); 
//смотрим что с ним делать
    case y of  
           1:inc(a, 10); 
           2:inc(a, 20);
    end; //case

   If a=10 Then //зачем нужен был впереди case не ясно, но пусть будет 
           begin
               ClrScr;
               Writeln ('?');      Writeln ('');     Writeln ('1');     Writeln ('2');     Writeln (''); 
               Readln (y);
               case y of // --------
                    1:inc(b, 1);//  |
                    2:inc(b, 2);//  |
               end; // case --------
           end; // if . Таким образом "case y of" выполняется внутри блока условия "if"

   If a=20 Then 
           begin
                ClrScr;
                Writeln ('?');    Writeln ('');   Writeln ('1');   Writeln ('2');   Writeln ('');
                Readln (y);
                case y of // --------
                     1:inc(b, 1);//  |
                     2:inc(b, 2);//  |
                end; // case --------
           end; // тоже самое

// завершающие действия
   z:=a+b;
   ClrScr;
   Writeln(a,' + ',b,' = ',z);
   Readln;
 end.