Помогите создать снеговика с анимацией в PascalABC и в Microsoft Visual Basic6.0

[ЮЛИКА]

Помогите создать снеговика с анимацией в Pascal ABC и в Microsoft Visual Basic 6.0 пожалуйста, буду очень благодарна!!! Если можно сегодня в течении дня.

[tig81]

Показывайте свои наработки

[ЮЛИКА]

Я не проффесионал поэтому и прошу помощи.. У меня защита в четверг горю...Плиииз.

[tig81]

Решить за вас и помочь вам - это разные вещи. А про недостаток времени кричать не стоит, вы сами до аврала дотянули.

[ЮЛИКА]

Не пойму почему не запускается , чего не хватает. Задание Показать, что для всех n=1,2,3,N
(1^5+2^5+...+n^5)+(1^7+2^7+...+n^7)=2(1+2+...+n)^4
решение: 
Var
 sum,sum2:real;
 i,n,k:integer;
begin
readln(n);
for i:=1 to n do
begin
 sum:=sum+(exp(ln(i)*5)+exp(ln(i)*7));
 sum2:=sum2+i;
 if round(sum)=round(2*exp(ln(sum2)*4)) then inc(k);
end;
if k=n then writeln('Верно')
else writeln('Не верно');
readln;
end.

[ki]

дубль...

[ЮЛИКА]

Программу сделала, а анимацию не получается.. Помогите
USES Graph;
VAR  Device, Mode: Integer;
BEGIN
    Device:=0;
    InitGraph(Device, Mode, 'c:\tp\bgi');
    Rectangle(300,30,360,80);       {шапка}
    SetFillStyle(1, yellow);                {заливка}
    FloodFill(330,50, white);           {шапки}
  Circle(330,120,40);                   {голова}
    Circle(345,110,5);                  {глаз}
    Circle(315,110,5);                  {глаз}
    SetColor(red);
  Line(320,140,340,140);            {pот}
    SetColor(white);
  Line(330,120,330,130);            {нос}
    Line(330,120,305,130);          {нос}
    Line(330,130,305,130);          {нос}
    SetFillStyle(1, red);                   {заливка}
  FloodFill(328,125, white);            {носа}
  Circle(330,220,60);                   {сеpедина}
    Circle(330,360,80);                 {низ}
    Rectangle(350,163,455,183); {pука}
    Rectangle(203,163,308,183); {pука}
  SetLineStyle(0, 0, ThickWidth);
  SetColor(blue);
    Line(210,130,210,440);          {посох}
    WriteLn('Это снеговик');
    ReadLn;
    CloseGraph

[ki]

первое подозрение...проверьте инициализацию графики, уберите readln и writeln, поставьте все тело графики в цикл until на проверку readkey. текст в графике, насколько помню выводится с помощью outtext..