Program L3;
Uses crt;
Var a1,b1,c1,d1,e1,f1,x :integer;
a,b,c:boolean;
pr:char;
i,Old_Color :byte;
ch :char;
Begin
Old_Color:=Textattr;
Repeat
window(1,1,80,25);
textattr:=black shl 4+cyan;
clrscr;
gotoxy(5,1);
write(' JIa6apaTopHa9I #3');
window(20,8,60,18);
textattr:=black shl 4+cyan;
clrscr;
gotoxy(11,4);
write(' 1-zadanie 1');
gotoxy(11,5);
write(' 2-zadanie 2');
gotoxy(11,6);
write(' 3-o proge');
gotoxy(11,8);
write(' Esc-exit ');
textcolor(cyan); gotoxy(12,2);write(' Baw BbI6op? ');
ch:=readkey;
if ch<>#0 then
begin
window(5,3,75,18);
textattr:=black shl 4+Cyan;
clrscr;
case ch of
#49:Begin
TextAttr:=Black shl 4+Cyan;
ClrScr;
readln(pr);
if pr='1' then
begin
end;
if pr= '2' then
begin
end;
Readkey;
End;
#50:Begin
TextAttr:=black shl 4+Yellow;
Readkey;
End;
#51:Begin
Readkey;
End;
#27:exit;
End;
end;
until(ch=#27);
window(1,1,80,25);
textattr:=Old_Color;
clrscr;
END.
как сделать в пунктах подпункты? |