program kursor;
Procedure kursor_tagasi;
BEGIN
 asm
  mov ah,1
  mov ch,6
  mov cl,7
  int 10h
 end
END;

Procedure kaota_kursor;
BEGIN
 asm
  mov ah,1
  mov ch,1
  mov cl,0
  int 10h
 end
END;


begin
    writeln('Kursor kaob');
    kaota_kursor;
    readln;
    writeln('Kursor tuli tagasi');
    kursor_tagasi;
    readln;
end.