program aqrr; uses crt; const n=11; var a,b,d,c:integer; begin clrscr; Writeln('Какой сейчас год?'); Readln(a); Writeln('В каком классе ты сейчас учишься?'); Readln(b); c:=n-b+a; writeln('Ты окончишь школу в ', c ,' году'); read(c); end.