Программный продукт в Pascal, проверяющий знания правил русского языка(например, поставить правильную букву в слове). Во не менее 5. Программа должна выводить оценку за тест.

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.

Янезнаю правельно или нет но я думаю так , вродебы первый вариант можно решить так .предположим, первый подсудимый -- туземец. тогда, отвечая только правду на вопрос судьи, он называет себя туземцем. второй говорит, что первый говорил, что он туземец. таким образом, второй -- тоже туземец (он действительно подтвердил слова первого). третий говорит, что первый назвал себя колонистом. третий врёт, так как первый по условиям этого предположения назвался туземцем. соответственно, третий -- колонист. второй вариант решения.предположим, что первый подсудимый -- колонист. тогда, говоря только ложь, он называет себя туземцем.что говорит второй и третий читайте выше.мы пришли к выводу, что второй и третий -- туземец и колонист, независимо от того, кем является первый.мои рассуждения свелись к ответу на вопрос: врёт ли второй и третий подсудимый на вопрос судьи, кем назвался первый .вот и вся с тебя каронка !