Ответ:

begin 

 var N,X: string;  

 var K,Y: integer;

 var M: longint;

 writeln ('Как тебя зовут? ');

 readln(N);

 writeln ('Введи номер класса в котором ты учишься. ');

 readln(K);  Y:=2016+1+11-K;

 writeln (N,' закончишь школу в ',Y,' году. Верно? да/нет. ');

 read(X);

   if X='да'

     then writeln

     else

         if X = 'нет'

         then writeln

         else writeln

end.