Задача на решение графики в Паскаль!

[Ka1n777]

Надо написать программу на PascalABC, Кубик бросающийся 2 раза : вверх вниз ,верх вниз (после того, как он опустится вниз, он должен поменять значение и снова броситься вверх, а затем вниз).Помогите решить эту задачку.

[sheka]

кубик - имеется ввиду просто двигающийся квадрат?

[Ka1n777]

Да! Бросающийся кубик (он летит вверх, потом вниз, меняет значение на любое другое (например 3) и также бросается ещё раз).

[Mr.Qwerty]

Ух ты, у нас цвет стал цифрой!?

procedure kubik(x,y,l:integer);
begin
     setpencolor(l);

Вот поэтому Паскаль АБЦ и "матюкается" )
Далее еще здесь проблемка:

     polygon(a,4);
     polygon(b,4);

[Ka1n777]

В чем проблема? polygon(a,4);polygon(b,4);

[Ka1n777]

Помогите...

[puporev]

Вот поэтому Паскаль АБЦ и "матюкается" )

У меня не матюгается.

В чем проблема? polygon(a,4);polygon(b,4);

никакой проблемы нет, все работает как написано.
Вообще программу я бы написал так.
1. В процедуре Kubik оставить только рисование самого кубика, очки убрать.
2. Описать 6 процедур Ochki1, 2, 3..6. В каждой нарисовать кружки и элипсы соответственно: лицевая от 1 до 6 кружков, прилегающие как на реальном кубике, посмотрите.
добавить параметр, определяющий, какой кубик рисовать, это будет случайное число от 1 до 6.
3. Выполнение процедур привязать к нажатию клавиши, например пробел(#32). Выход по Esc(#27).
4. Программа идет в цикле
(по Пакалевски, АВС не знаю и учить не хочу, ни Паскаль, ни Делфи, фиг поймешь)
repeat
if keypressed (аналог модуля Crt подключить) then
begin
readln(key);
if key=#32 then
begin
och:=random(6)+1;
case och of
1:begin
Kubik();//проставить параметры
Ochki(старые параметры,ovh);
end;
также от 2 до 6.
end;
В конце, где кубик останавливается, снова пишете это, выпадает другое число(хотя может случайно и это, бывает)
рисует кубик с новыми гранями
if key=#27 then exit;
until key=#27;
Так Вы сможете кидать кубик, пока не надоест, а не только 2 раза.

[puporev]

Вот быстренько изучил Паскаль АВС и накидал программку.
Дорисуй там кубики все и вперед.