Program1.pas(10) : Встречено 'Const', а ожидался оператор Program dialog; var...

Question

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.

Comments

Во-первых, блок const не нужно использовать в begin end.
Он используется над блоком var
Во-вторых, у вас 2 константы с именем уже существующим

---

Что нужно сделать что бы оно пощетало сколько человеку осталось учится к примеру с 9 до 11 класса

---

Спасибо

Answer 1

Ответ:

Program dialog;

var  

   a,b:string;

   c:integer;

begin

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

readln(a);

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

readln(b);

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

readln(c);

writeln('Тобі залишилося вчитися ', 11- c); {

readln {

end.

Объяснение:

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

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