задачи по программированию на языке Пакаль

Берем SCBL, пишем:

(defun solve-my-problem (topic language description) ...)

(with-open-file (out "solution1.pas" :direction :output) (solve-my-problem :structured-program-development :pascal "Разработать программу, предварительно выделив одну или несколько процедур. Желательно, чтобы каждая процедура представляла собой алгоритм, многократно применяемый в программе. Определить индексы минимального элемента (в предположении, что он единственный) в каждой из трех матриц: A(5*10), B(3*7), C(7*5)"))

(with-open-file (out "solution2.pas" :direction :output) (solve-my-problem :dynamic-data-structures :pascal "Динамические структуры данных. В узле связанного списка хранятся коэффициенты многочлена (коэффициент при х, степень х), в порядке убывания степеней х. Используя список, проверить на равенство два многочлена."))

(with-open-file (out "solution3.pas" :direction :output) (solve-my-problem :oop :pascal "Создайте класс КВАДРАТНОЕ УРАВНЕНИЕ. Обязательными полями класса должны являться коэффициенты при степенях аргумента. Обязательными методами класса является определение наличия корней и значения корней."))

Все! Проблема почти решена. Осталось только заполнить тело функции solve-my-problem.

(defparameter *registered-female-nick* nil)

(defun register-female-nick (url) ...)
(defun post-to-lor-talks (nick descr) ...)

(defun solve-my-problem (topic language description) 
  (when (null *registered-female-nick*)
    (register-female-nick "http://www.linux.org.ru"))
  (post-to-lor-talks *registered-female-nick* description))

После запуска solve-my-problem появляется окно, в котором происходит следующий диалог:

SCBL> Как создать класс на языке Pascal ? USER>TYPE [Название класса] = OBJECT *{[Название поля] : [Тип поля];} END; SCBL> Перечисли-ка названия коэффициентов через запятую, пож-ста ? USER> a,b,c SCBL> Как определить есть ли корни ? USER> Посчитать b^2 - 4*a*c SCBL> Loading module "infix"... SCBL> Как найти значения корней ? ... SCBL> Получай решение лоботряс хренов

;-)

После запуска solve-my-problem появляется окно, в котором происходит следующий диалог: 

SCBL> Как создать класс на языке Pascal ? 
USER>TYPE 
        [Название класса] = OBJECT 
            *{[Название поля] : [Тип поля];} 
        END; 
SCBL> Перечисли-ка названия коэффициентов через запятую, пож-ста ? 
USER> a,b,c 
SCBL> Как определить есть ли корни ? 
USER> Посчитать b^2 - 4*a*c 
SCBL> Loading module "infix"... 
SCBL> Как найти значения корней ? 
... ещу куча вопросов
SCBL> Получай решение лоботряс хренов! Паскаль твой отстой!

;-) 

Пакль не круто лучше Сикль :))