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

2: begin

window(10,7,20,10);

textbackground(1);

clrscr;

window(10,15,20,18);

textbackground(1);

clrscr;

end;

3: begin

window(20,7,30,10);

textbackground(1);

clrscr;

window(20,15,30,18);

textbackground(1);

clrscr;

end;

4: begin

window(30,7,40,10);

textbackground(1);

clrscr;

window(30,15,40,18);

textbackground(1);

clrscr;

end;

end;

window(1,12,40,14);

gotoxy(1,13);

write(s1);

write(s2);