Uses Graph;
Var gd,gm: Integer;
    k: Word;

    begin
    gd:=Detect; InitGraph(gd,gm,");

    For k:=1 To 5 Do
      begin
        if k mod2 = 0 Then
          Rectangle(50*k,50*k,50*k+30,50*k+30)
          Bar(50*k,50*k,50*k+30,50*k+30)
         end;
   Reading; CloseGraph;
End.