{**********************************************************************}
{ Read first ten characters at the top of the screen			}
{**********************************************************************}

procedure print_10_chars;
var
i,j : integer;
begin
	writeln('Characters read are: ');
	for i := 0 to 9 do begin
		j := read_character(0,i);
		writeln(j);
	end;
end;