Напишите программу в pascalabc с которой рисуется движущийся рисунок (должно двигаться не менее трех частей) , например - машина с вращающимися колесами, с цикла for и простых команд (использовать graphabc).

Я уже отвечал на подобный вопрос.
Эту колдунью зовут Кодировка КОИ-8. Таблица кодирования:
А-Ю, Б-А, В-Б, Г-Ц, Д-Д, Е-Е, Ж-Ф, З-Г, И-Х, Й-И, К-Й, Л-К, М-Л,
Н-М, О-Н, П-О, Р-П, С-Я, Т-Р, У-С, Ф-Т, Х-У, Ц-Ж, Ч-В, Ш-Ь,
Щ-Ы, Ъ-З, Ы-Ш, Ь-Э, Э-Щ, Ю-Ч, Я-Ъ, Ё-╦
Таблица построена так. Слева стоят буквы по русскому алфавиту, а справа русские буквы, соответствующие английскому алфавиту.
@ - Ю (код 40), A - А (41), B - Б, C - Ц, D - Д, E - E, F - Ф, и т.д.
Буква Ё - 33-ья в алфавите, она выбивается из ряда в 32 буквы, поэтому превращается не в букву, а в элемент псевдографики.
И еще меняется регистр, 1-ая буква маленькая, остальные большие.
Эти имена по порядку: 
Глеб, Степан, Иван, Фёдор, Кирилл, Леонид

for (i = 0; i < kol; i++) {

cout « as[i].punkt_naznachenia « " ";

cout « as[i].nomer_reisa « " ";

cout « as[i].tip_samoleta « endl;

}

char poisk_samoletov[40];

cout « "Punkt naznachenia reisa " « endl;

cin » poisk_samoletov;

bool f = false;

for (i = 0; i < kol; i++)

if (strcmp(as[i].punkt_naznachenia, poisk_samoletov) == 0)

{

cout « "Nomer reisa ";

cout « as[i].nomer_reisa « endl;

cout « "Tip samoleta ";

cout « as[i].tip_samoleta « endl;

f = true;

}

if (!f) {

cout « "Net takogo punkta naznachenia reisa " « endl;

}

system("pause");

}

Объяснение: