Program1.pas(10) : Встречено 'Const', а ожидался оператор
Program dialog;
var a,b,c,d:string;
begin
writeln('Як тебе звати ?');
readln(a);
writeln('Скільки тобі років? ');
readln(b);
writeln('в якому ти классі ?');
readln(c);
Const;
A = 11;
B = 9;

writeln('Тобі залишилося вчитися', A - B); { <-- Выводим сумму }
readln { <-- нажимаем Enter и выходим из программы }
end.

Program dialog;

var  

   a,b:string;

   c:integer;

begin

writeln('Як тебе звати ?');

readln(a);

writeln('Скільки тобі років? ');

readln(b);

writeln('в якому ти классі ?');

readln(c);

writeln('Тобі залишилося вчитися ', 11- c); { <-- Выводим сумму }

readln { <-- нажимаем Enter и выходим из программы }

end.

Объяснение:

Обойтись можно и без констант в принципе.

Если я правильно понял суть задачи, то, собственно, вот