Курсовая работа / Курс / ST

program st;
uses crt,styd,graf;
label 0,1;
Var p:integer;
begin
assign(f, 'rabota.dat');
vstyp;
1:clrscr;
textcolor(green);
gotoXY(32,8); writeln('Zdelayte vybor');
textcolor(white);
gotoXY(30,9); writeln('1 - Vvod zapisej');
gotoXY(30,10); writeln('2 - Vyvod zapisej');
gotoXY(30,11); writeln('3 - Stipendiya');
gotoXY(30,12); writeln('4 - Dobavit zapis');
gotoXY(30,13); writeln('5 - Ydalit zapis');
gotoXY(30,14); writeln('6 - Redaktirovat zapis');
gotoXY(30,15); writeln('7 - Spusok vidminnukiv');
gotoXY(30,16); writeln('8 - Vyhod iz programy');
gotoXY(27,17); write('-->');
readln(p);
case p of
1:begin Vvod; goto 1 end;
2:begin Vyvod; goto 1 end;
3:begin Sti; goto 1 end;
4:begin Dobavit; goto 1 end;
5:begin Delete; goto 1 end;
6:begin Redakt; goto 1 end;
7:begin Vidm; goto 1 end;
8:goto 0
else goto 1;
end;
0:bb;
end.