Даю 20БАЛОВ!!!?!!ПОМОГИТЕ СРОЧНО ХЕЛП 5 задание Паскаль абс

Question

Даю 20БАЛОВ!!!?!!ПОМОГИТЕ СРОЧНО ХЕЛП 5 задание Паскаль абс

---

---

Answer 1

uses GraphABC;

begin

 SetWindowHeight(250);

 SetWindowWidth(250);

 var x: integer;

 Read(x);

 

 if x mod 2 = 0 then

 begin

   SetBrushColor(clGreen);

   FillRectangle(60,60, 190, 190);

 end

 else

 begin

   SetBrushColor(clRed);

   FillCircle(125, 125, 75);

 end

end.