pascal prosedur garis

uses crt;

procedure garis;
var i,j,k:integer;
begin
textcolor(green);
for i:=1 to 3 do
 begin
 for j:=1 to 10 do
 write('_');
 writeln;
 end;
writeln;
for k:=1 to 10 do
write('_');
end;

begin
clrscr;
garis;
readln;
end.