Помогите пожалуйста нарисовать флаг Италии в Паскаль

Question

Помогите пожалуйста нарисовать флаг Италии в Паскаль

Answer 1

Uses graphabc;
begin
Setbrushcolor:=clred;
rectangle (0,0,50,50);
Setbrushcolor:=clwhite;
rectangle(0,50,100,100);
Setbrushcolor:=clgreen;
rectangle(0,100,150,150);
end.