Помогите пожалуста не знаю как в паскале рисовать

[id055]

1.Надо нарисовать шахматную доску в паскале 5х5.

[Min]

не самый рациональный способ, но все же:

uses graph;
var gd,gm:integer;
    i,j:integer;
begin
 initgraph(gd,gm,'..\bgi');
 setfillstyle(1,white);
 for i:=0 to 7 do
  for j:=0 to 7 do
   if (i+j) mod 2=0 then bar(i*10,j*10,i*10+9,j*10+9);
 readln;
 closegraph;
end.

[Arigato]

Обратите внимание на следующие процедуры:
InitGraph
SetFillStyle
Bar
CloseGraph