I >)
R:=k+l; end; end; k:=l; end;
Vvodwindow(2,17,78,17,3,0); gotoxy(l, l); write(
If key=chr(60) then begin dok; Quite; exit; end; if key=chr(Ј7) then
Begin
Halt(l); end;
Until false; End;
Begin
Textbackground(0); clrscr; Nachalo;
Textbackground(O);
*
Clrscr; Chapka;
Xxl:=64; yyl:=5;
For i:=l to 6 do aaCil:=0; for i:=l to 6 do begin
Ocno_curs(xxl, yyl, xxl+12,yyl,3,’y’); yyl:=yyl+2; end; yyl:=5; repeat ocno_curs(xxl, yyl, xxl+12,yyl,1,’y’); key:=readkey; case key of chr(80):begin
Ocno_curs(xxl, yyl, xxl+12,yyl,3,’y’); if yyl<15 then begin yyl:=yyl+2; end
Else begin yyl:=5; end; end;
Chr(72):begin
Ocno_curs(xxl, yyl, xxl+12,yyl,3,lyl); if yyl>5 then begin
Yyl:=yyl-2; end else begin yyl:=15; end; end; chr(13):vvod_dan(yyl); Chr(27):QUITE; end; until
False;
End.
End
Else begin yyl:=5; end; end;
Chr(72):begin
Ocno_curs(xxl, yyl, xxl+12,yyl,5,’ у’);
If yyl>5 then begin
Yyl:=yyl-2;
End