6a 6

uses
  graphabc;

var
  r, g, b: integer;
  i, xc, yc: integer;

begin
  xc := windowwidth div 2;
  yc := windowheight div 2;
  Writeln('Виберіть фігуру:');
  writeln(' 1 - трикутник, 2 - квадрат, 3- коло, 4- ромб, 5 -еліпс');
  readln(i);
  writeln('Введіть колір фігури в RGB форматі');
  writeln('R=');
  read(r);
  writeln('G=');
  read(g);
  writeln('B=');
  read(b);
  case i of
    1:
      begin
        setpencolor(clBlack);
        line(xc - 100, yc + 50, xc + 100, yc + 50);
        line(xc + 100, yc + 50, xc, yc - 100);
        line(xc, yc - 100, xc - 100, yc + 50);
        floodfill(xc, yc, rgb(r, g, b));
      end;
    2:
      begin
        setpencolor(clGreen);
        rectangle(xc - 50, yc - 50, xc + 50, yc + 50);
        floodfill(xc, yc, rgb(r, g, b));
      end;
    3:
      begin
        setpencolor(clBlue);
        circle(xc, yc, 100);
        floodfill(xc, yc, rgb(r, g, b));
      end;
    4:
      begin
        setpencolor(clYellow);
        line(xc, yc - 230, xc + 120, yc - 15);
        line(xc + 120, yc - 15, xc, yc + 220);
        line(xc - 120, yc - 15, xc, yc + 220);
        line(xc - 120, yc - 15, xc, yc - 230);
        floodfill(xc, yc, rgb(r, g, b));
      end;//320 240
  5:
      begin
        setpencolor(clRed);
        Ellipse(xc-100,yc-70,xc+100,yc+70);
        floodfill(xc, yc, rgb(r, g, b));
        end;
  else halt;
  end;
  writeln(xc, yc);
end.