Нарисовать белку — Pascal(Паскаль)

uses Crt, Graph;

var
  i, Driver, Mode: integer;
  q: real;
  c: char;

begin
  InitGraph(Driver, Mode, 'D:\university\TP\TURBO PASCAL 7.0');
  SetBkColor(LightBlue);
  SetColor(Red);
  q := 1;
  outtextxy(220, 240, 'press Enter or Spase to go!');
  { for i:=1 to 5 do }
  repeat
  begin
    c := readkey;
    if c = #13 then
      q := q + 0.1;
    if c = #32 then
      q := q - 0.1;
    if q < 0 then
      break;
    ClearDevice;
    Line(round(q * 200), round(q * 200), round(q * 200), round(q * 250));
    Line(round(q * 200), round(q * 250), round(q * 245), round(q * 300));
    Line(round(q * 245), round(q * 300), round(q * 300), round(q * 300));
    Line(round(q * 300), round(q * 300), round(q * 300), round(q * 285));
    Line(round(q * 300), round(q * 285), round(q * 275), round(q * 255));
    Line(round(q * 275), round(q * 255), round(q * 245), round(q * 245));
    Line(round(q * 245), round(q * 245), round(q * 245), round(q * 235));
    Line(round(q * 245), round(q * 235), round(q * 250), round(q * 230));
    Line(round(q * 250), round(q * 230), round(q * 260), round(q * 230));
    Line(round(q * 260), round(q * 230), round(q * 265), round(q * 240));
    Line(round(q * 265), round(q * 240), round(q * 330), round(q * 240));
    Line(round(q * 330), round(q * 240), round(q * 330), round(q * 230));
    Line(round(q * 330), round(q * 230), round(q * 360), round(q * 230));
    Line(round(q * 360), round(q * 230), round(q * 360), round(q * 220));
    Line(round(q * 360), round(q * 220), round(q * 375), round(q * 220));
    Line(round(q * 375), round(q * 220), round(q * 375), round(q * 210));
    Line(round(q * 375), round(q * 210), round(q * 360), round(q * 210));
    Line(round(q * 360), round(q * 210), round(q * 360), round(q * 200));
    Line(round(q * 360), round(q * 200), round(q * 390), round(q * 180));
    Line(round(q * 390), round(q * 180), round(q * 390), round(q * 170));
    Line(round(q * 390), round(q * 170), round(q * 380), round(q * 150));
    Line(round(q * 380), round(q * 150), round(q * 380), round(q * 140));
    Line(round(q * 380), round(q * 140), round(q * 375), round(q * 145));
    Line(round(q * 375), round(q * 145), round(q * 375), round(q * 140));
    Line(round(q * 375), round(q * 140), round(q * 370), round(q * 145));
    Line(round(q * 370), round(q * 145), round(q * 355), round(q * 145));
    Line(round(q * 355), round(q * 145), round(q * 350), round(q * 150));
    Line(round(q * 350), round(q * 150), round(q * 290), round(q * 150));
    Line(round(q * 290), round(q * 150), round(q * 250), round(q * 165));
    Line(round(q * 250), round(q * 165), round(q * 250), round(q * 185));
    Line(round(q * 250), round(q * 185), round(q * 230), round(q * 185));
    Line(round(q * 230), round(q * 185), round(q * 200), round(q * 200));
    circle(round(q * 375), round(q * 165), round(q * 3));
  end;

  until c = #27;

  { readln; }
  CloseGraph;

end.