Это что работа студента первого курса по информатике в паскале?