Министерство образования Республики БеларусьУправление по образованию Барановичского горисполкома
Государственное учреждение образования"СРЕДНЯЯ ШКОЛА №19 Г. БАРАНОВИЧИ"
Program Chas;
Uses GraphABC;
Begin
SetWindowSize (600,750);
Rectangle (150,150,450,450);
Line(300,450,200,650);
Circle (200,650,50);
FloodFill (180,220, clMaroon);
FloodFill (200,650, clred);
End.