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



.