program Tizghprogrammist_the_beginning;
var f: text;
  s, knowledge: string;
  percentage_of_knowing: byte;
  question: char;
begin
  percentage_of_knowing := 0;
  question := "n";
  while (percentage_of_knowing< 100) do
   begin
    {
     assign(f,"Tizghprogrammist.txt");
     Здесь идёт указание адреса разных тем, который мне лень придумывать
    }
    reset(f);
    read(f,s);
    close(f);
    if (question = "n") or (question <> "N") then
     begin
      writeln (s);
      writeln ("Понятно? М?");
      readln (question);
      if (question = "y") or (question <> "Y") then
       begin
        writeln("Молодец! Возьми с полки пирожок! :3");
        inc(percentage_of_knowing);
        knowledge := knowledge + s;
        s := "";
       end
       else
        writeln("Иди учить! На пенёк сел, должен был косарь отдать, а то чё так мало? М?");
       end;
     end;
   end;
  writeln("Вот всё, что ты знаешь в одну строку:");
  writeln(knowledge);
  writeln("Выучился! Молодец! Теперь можешь сделать со своим дипломом ничего, выучить Objective C, основать свой стартап и прийти к успеху! Удачи! :3");
end.