Что будет выведено на экране в результате программы

Program zad1;

Begin

ClearWindow (clYellow) ;

SetPenColor (clRed) ;

SetPenWidth (5) ;

SetBrushColor (clPurple) ;

Circle (200,200,70)

End.

Тем, кто работает с Pascal ABC! Не заливается хобот у слона. В чем проблема? Program elephant_Meri_13; uses graphABC; begin setwindowsize (500,500) ; setpenwidth (8) ; arc (150,300,100,0,180) ; arc (360,250,80,160,360) ; arc (370,240,60,160,360) ;

В чём ошибка программы? Если не сложно объясните. код программы - Program cikl; Uses GraphABC; Var r:Integer; begin for r:=460 downto 100 do begin circle (620,480, r) ; r:=r-35; end; FloodFill (170,480, clPurple) ; FloodFill (205,480, clBlue) ;

Uses graphabc; var a:real; begin writeln ('Введите число') ; readln (a) ; if (a>0) and (a mod 2=0) then setwindowsize (500,500) ; setpencolor (clyellow) ; circle (250,250,100) ; floodfill (250,250, clorange) ; if a

Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;

3. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы? a:=2; for i:=0 to 2 do begin a:=a+i; end; Ответ: введите число 4.