program Grafika0; uses Crt,Graph; var sterownik,tryb:integer; begin {Grafika0} sterownik:=0; InitGraph(sterownik,tryb,''); if GraphResult0 then begin Writeln('Blad grafiki'); Halt end; Rectangle(70,120,360,280); Delay(3000); CloseGraph end. Muszę zrobić takie rysunki w Turbo Pascalu. Więc proszę o pomoc ;-) U góry jest napisany pomocniczy program. Bardzo proszę o pomoc.