Ответ:
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.