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

var i,s,k,k1,s1,s2,s3,s4,min,max,j,l,s5:integer;z:real;

begin

if fsearch('qw.qw','qw.qw')='' then

begin

window(1,1,40,25);

textbackground(2);

clrscr;

pamka(1,1,39,3);

gotoxy(6,2);

textcolor(3);

write('Analis ranga uspevaemosti');

pamka(1,3,39,25);

window(2,4,38,24);

textcolor(132);

writeln('FAIL NE NAIDEN');

end

else

begin

window(1,1,40,25);

textbackground(2);

clrscr;

pamka(1,1,39,3);

gotoxy(6,2);

textcolor(3);

write('Analis ranga uspevaemosti');

pamka(1,3,39,25);

textcolor(0);

window(2,4,38,24);

assign(f,'qw.qw');