Курсовая работа: Аналіз успішності групи

end;

{------------------------}

procedure newreadkey (var a:char;var b:byte);

begin

b:=0;

a:=readkey;

if a=#0 then

b:=ord(readkey);

end;

{------------------}

procedure zapaska(i:byte;s1,s2,s3,s4:string);

begin

window(1,1,40,7);

textbackground(1);

clrscr;

window(1,18,40,25);

textbackground(1);

clrscr;

window(1,7,40,18);

textbackground(0);

clrscr;

case i of

1: begin

window(1,7,10,10);

textbackground(1);

clrscr;

window(1,15,10,18);

textbackground(1);

clrscr;