Нарисовать чебурашку в Pascal ABC

program r; uses crt; var a, c, d, l, k: string[50]; b: integer; beginwriteln('! '); writeln('давай познакомимся! как тебя зовут? '); readln(a); writeln(' приятно, ',a,'! ','а меня зовут евгений.'); writeln('сколько тебе лет? '); readln(b);

if (a = 'антон' and b=15) thenwriteln(' через 50 лет тебе уже будет 65 лет, а звать тебя будут не антон, а дед антон');

writeln('мне тоже,' b, '! '); writeln('какую музыку ты любишь слушать? '); readln(c); writeln('ничего себе! да у нас похожие вкусы! ведь я тоже люблю слушать ', c); writeln('какое время года ты любишь? '); readln(d); writeln('я тоже обожаю ',d); writeln('какой твой любимый цвет? '); readln(l); writeln('мне кажется, мы во многом это и мой любимый цвет.'); writeln('кто ты по знаку зодиака? '); readln(k); writeln('надо же! я тоже ',k,'.'); writeln('было приятно познакомиться и поговорить,' a,'! пока! '); end.

из-за того, что там не было древесины, люди писали на глинянных тощечках. они колышками выдавливали символы.

гляди

26 разделим по 3 кучки

получим 9 9 8

если взвесим 9 и 9 и какойто будет легче, то тот разбиваем еще на 3 кучки, т.е. уже

3 3 3,взвешиваем если оба одинаковы,то берем третий,если какой то из них меньше то берем его и расскладываем еще на 3 кучки,получаем 1 1 1,отсюда если два камня равны то они искусствены и берем третий,если нет,то берем меньший по весу.

теперь если 9 и 9 одинаковы

разложем 8 на 3 кучи

получаем 3 3 2

3 3 уже рассматривали,возьмем 2 разложим на 1 1 и один из них будет меньше по весу! в итоге 3 взвешивания!

это без использования файлов

var spisok: array [word] of string; {объявляем массив для хранения фамилий} n,i,k: word; {n - количество фамилий,i - переменная, k - количество фамилий в списке равных 8 или 9 буквам}

beginwrite('введите количество фамилий в списке n = '); readln(n); for i: =1 to n do beginwrite('введите фамилию ',i,' : '); readln(spisok[i]); if (length(spisok[i])=9) or (length(spisok[i])=8) then inc(k); {inc(k) - это тоже самое ,что k: =k+1; }end; writeln('количество фамилий в списке состоящих из 8 или 9 букв = ',k); end.

п.с. если вам потребуется,обработка конкретно через фаил напишите мне, так как в условии вы не указали точно через что!