Question

напишите программу. задано число x. Если число положительное, то нарисовать на экране жёлтый круг, а если неположительное, то зелёный эллипс. Помогите пожалуйста!!! Даю 50 баллов!!!

Answer 1

Ответ:

uses graphABC, ABCObjects;

var

 r: CircleABC;

 e: EllipseABC;

begin

 var x:= readinteger('Введите число x');

  clearwindow(clwhite);

 if x>0 then begin

     r := new CircleABC(300,200,100,clyellow)

     end  

   else if x<0 then

     e := new EllipseABC(200,150,300,150,clgreen);

end.