Курсовая работа: Разработка базы данных "Учащиеся"

write('Н');

end;

Write('»');

gotoxy(10+gotocen(s),y0);

textcolor(white);

write(s);

for i:=y0+1 to y-1 do

begin

j:=x0;

textcolor(color);

gotoxy(j,i);

write('є');

textcolor(white);

for j:=x0+1 to x-1 do

write(' ');

TextColor(color);

write('є');

end;

gotoxy(x0,y);

write('И');

for i:=x0+1 to x-1 do

write('Н');

write('ј');

textcolor(yellow);

end; {MakeRamka}

procedure field;

var

i:integer;

begin{field}