Выделите для будущей базы данных школа объекты по которым будут созданы отношени

на египетскую

вавилон-клинопись

финикия-подобие букв без гласных

египет-иероглифы

var s1, s2: string;

begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.