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

write(s4);

end;

{==================}

begin

window(1,1,40,25);

textbackground(0);

clrscr;

p:=1;

s1:=' Vvod ';

s2:=' Analiz ';

s3:=' Udal ';

s4:=' Vihid ';

zapaska(1,s1,s2,s3,s4);

repeat

newreadkey(a,b);

case b of

77:p:=p+1;

75:p:=p-1;

end;

case p of

5: p:=4;

0: p:=1;

end;

case p of

1: begin

if a=#13 then

vo;

zapaska(p,s1,s2,s3,s4);

end;